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TITLE TAll BASIC LOGIC TEST (PART 2) MAINDEC"! I-DETAB"C 

*COPYRIGHT (C) 1976 

^DIGITAL EQUIPMENT CORP. 

»MAYNARD, MASS, 01754 

* 

»PROGRAM BY JAMES LACEY 

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
*PACKAGE (MAlNDEC-ll-DEQAC-CUrMAR 24, 1976. 

« 

REM' 



GENERAL INFORMATION ABOUT THE TA11/TU60 CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 



21 
22 



24 
25 



777500 TACS 
777502 TADB 
260 TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFER REGISTER 
INTERRUPT VECTOR 



27 
28 



33 
34 
35 
36 
37 
38 
39 



45 
46 
47 



TACS REGISTER DESCRIPTION 









INIT 






BIT 


NAME 




STATE 


READ AND/OR 


WRITE? 


15 


ERROR 




1 


READ ONLY 




14 


BLOCK CHECK ERROR 







READ ONLY 




13 


CLEAR LEADER 




? 


READ ONLY 




12 


ivRlTE LOCK 




7 


READ ONLY 




11 


FILE GAP 







READ ONLY 




10 


TIMING ERROR 







READ ONLY 




09 


OFF LINE 




7 


READ ONLY 




08 


UNIT SELECT 







READ/tf^RITE 




07 


TRANSFER REQUEST 







READ ONL^ 




06 


INTERRUPT ENABLE 







READ/WRITE 




05 


READY 




1 


READ ONLY 




04 


TLBS 







READ/WRITE 




03 


tUNCTION BIT 02 







READ/WRITE 




02 


FUNCTION BIT 01 







READ/WRITE 




01 


FUNCTION BIT 00 

0SWRITE-FILE-GAP 

1=WR1TE 

2=READ 

3=BACK SPACE FILE 

4=BACK SPACE BLOCK 


GAP 
GAP 





READ/WRITE 






5=SPACE FORWARD FILE GAP 








6=SPACE FORWARD BLOCK 


GAP 








7=REwIND 










00 


GO BIT 







WRITE ONLYI 
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57 

58 
59 



64 
65 
66 
67 
68 
69 
70 
71 
72 



76 




77 




78 




79 


000011 


60 


000012 


8t 


000015 


82 


000200 


83 


177776 


84 




85 


177774 


86 


177772 


87 


177570 


88 


177570 


89 




90 




91 


000000 


92 


000001 


93 


000002 


94 


000003 


95 


000004 


96 


000005 


97 


000006 


98 


000007 


99 




100 




101 




102 




103 


000000 


104 


000040 


105 


000100 


106 


000140 


107 


000200 


108 


000240 


109 


000300 


110 


000340 


111 




112 





.SBTTL OPERATIONAL SWITCH SETTINGS 



r»#»»»^»«.««.# 



SWITCH 



USE 



.SBTTL 



15 HALT ON ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 

11 INHIBIT ITERATIONS 

10 BELL ON ERROR 

9 LOOP ON ERROR 

8 LOOP ON TEST IN SWR<7;0> 

7 LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL LOOPING) 

BASIC DEFINITIONS 



;*INITIAL ADDRESS OF THE STACK POINTER *«« |l 
STACKS 1100 
.EQUIV EMT,EPROp 
.EQUIV lOT, SCOPE 



;, 'BASIC DEFINITION OF ERROR CALL 
;, 'BASIC DEFINITION OF SCOPE CALL 



;»HISCELLANEOUS 
HT= 11 



LF= 

CPs 

CRLFs 

PS= 

.EQUIV 



12 

15 

200 

177776 

PSfPSW 



STKLMTs 177774 
PIRQ= 177772 
DSWRs 177570 
DDISP= 177570 



DEFINITIONS 

J, 'CODE FOR HORIZONTAL TAB 

j;CODE FOR LINE FEED 

JfCODE FOR CARRIAGE RETURN 

JjCODE FOR CARRIAGE RETURN-LINE FEED 

J, -PROCESSOR STATUS WORD 

IJSTACK LIMIT REGISTER 

? {PROGRAM INTERRUPT REQUEST REGISTER 

? {HARDWARE SWITCH REGISTER 

;,• HARDWARE DISPLAY REGISTER 



;«GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
Rl = 
R2 = 
R3 = 
R4 = 
R5 = 
R6 = 
R7 = 

.EQUIV 
.EQUIV 



%0 

%1 

%2 

%3 

%4 

%5 

%6 

%7 

R6,SP 

R7,PC 



{GENERAL REGISTER 
,' {GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{STACK POINTER 
{{PROGRAM COUNTER 



^PRIORITY LEVEL DEFINITIONS 



PR0S 
PR1 = 
PR2 = 
PR3 = 
PR4= 
PR5 = 
PR6 = 
PR7a 



40 

100 

140 

200 

240 

300 

340 



. {PRIORITY LEVEL 

{{PRIORITY LEVEL 1 

{{PRIORITY LEVEL 2 

{{PRIORITY LEVEL 3 

{{PRIORITY LEVEL 4 

{{PRIORITY LEVEL 5 

{{PRIORITY LEVEL 6 

{{PRIORITY LEVEL 7 



»"SWITCH REGISTER" SWITCH DEFINITIONS 
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113 


100000 


114 


040000 


115 


020000 


116 


010000 


117 


004000 


U8 


002000 


119 


001000 


120 


000400 


121 


000200 


122 


000100 


123 


000040 


124 


000020 


125 


000010 


126 


000004 


127 


000002 


128 


000001 


129 




130 




131 




132 




133 




134 




135 




136 




137 




138 




139 




140 




141 


100000 


142 


040000 


143 


020000 


144 


010000 


145 


004000 


146 


002000 


147 


001000 


148 


000400 


149 


000200 


150 


000100 


151 


000040 


152 


000020 


153 


000010 


154 


000004 


155 


000002 


156 


000001 


157 




158 




159 




160 




161 




162 




163 




164 




165 




166 




167 




168 





SW15= 


100000 


SW14S 


40000 


SW13 = 


20000 


SW12X 


10000 


SWll = 


4000 


SW10= 


2000 


SW09= 


1000 


SW08= 


400 


SW07 = 


200 


SW06S 


100 


SW05 = 


40 


SW04= 


20 


SW03S 


10 


SW02 = 


4 


SW01S 


2 


SW00S 


1 


.FQUIV 


SW09#SW9 


,EOUIV 


SW08#SW8 


.EOUIV 


SW07,SW7 


,EUU1V 


5W06fSW6 


aEOUIV 


SW05,SW5 


.EQUIV 


SW04,SW4 


.EUlflV 


SW03#SW3 


, EQUIV 


SW02»SW2 


.EQUIV 


SW01,SW1 


.EQUIV 


SW00,SW0 


;*DATA 


BIT DEFINIT 


BITlSs 


100000 


BIT14= 


40000 


BIT13= 


20000 


BIT12= 


10000 


BIT11= 


4000 


BIT10S: 


2000 


BIT09S 


1000 


BIT08= 


400 


BIT07= 


200 


BIT06= 


100 


BIT05= 


40 


BIT04= 


20 


BIT03= 


10 


BIT02= 


4 


BTT0l= 


2 


BIT00S 


1 


.EQUIV 


BIT09,BIT9 


.EQUIV 


BIT08,BIT8 


.EQUIV 


BIT07,BIT7 


.EQUIV 


BIT06,BIT6 


.EQUIV 


BIT05,BIT5 


.EQUIV 


BIT04,BIT4 


.EQUIV 


BIT03,BIT3 


.EQUIV 


B1T02,BIT2 


.EQUIV 


B1T01,BIT1 


.EQUIV 


BIT00,BIT0 



;*BASIC "CPU" TRAP VECTOR ADDRESSES 



TAll BASIC LOGIC TEST (PART 2) MAINDEC«1 1 -DZTAB-C 
DZTABC.NEW BASIC DEFINITIONS 
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169 


000004 


170 


000010 


171 


000014 


172 


000014 




000014 




000020 




000024 




000030 




000034 


178 


000060 


179 


000064 


180 


000240 



ERRVEC= 4 
RESVECs 10 
TBITVEC=14 
TRTVEC= 14 
BPTVECs 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVECs 30 
TRAPVEC=34 
TKVECs 60 
TPVEC= 64 
PIRQVEC=240 



:TIME OUT AND OTHER ERRORS 

JRESERVED AND ILLEGAL INSTRUCTIONS 

',"1" BIT 

,' TRACE TRAP 

.•BREAKPOINT TRAP (BPT) 

J INPUT/OUTPUT TRAP (lOT) »*SCOPE«* 

; POWER FAIL 

jEMULATOR TRAP (EMT) «»ERROR»* 

;"TRAP'' TRAP 

;TTY KEYBOARD VECTOR 

;TTY PRINTER VECTOR 

JPROGRAM INTERRUPT REQUEST VECTOR 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-1 1»DZTAB-C 
DZTABC.NEW TAU DEFINITIONS 



jTAll FUNCTIONS 
WFGs 



181 




182 


000000 


183 


000002 


184 


000004 


185 


000006 


186 


000010 


187 


000012 


188 


000014 


189 


000016 


190 




191 




192 




193 


100000 


194 


040000 


195 


020000 


196 


010000 


197 


004000 


198 


002000 


199 


001000 


200 


000400 


201 


000200 


202 


000100 


203 


000040 


204 


000020 


205 


000010 


206 


000004 


207 


000002 


208 


000001 


209 


000016 


210 




211 




212 




213 




214 




215 


000003 


216 


000004 


217 


000005 


218 




219 




220 





WRITES 

BEADS 

BSFGs 

BSBGs 

SFFGs 

SFBGs 



REWINDS 16 



MACYU 27(732) i1-JUN-76 13:26 PAGE 5 



yWRlTE FILE GAP FUNCTION 
jWRITE FUNCTION 
;READ FUNCTION 

jBACK SPACE FILE GAP FUNCTION 
jBACK SPACE BLOCK GAP FUNCTION 
;SPACE FWD FILE GAP FUNCTION 
jSPACE FWD BLOCK GAP FUNCTION 
jREWIND FUNCTION 



;TA11 Bll 
ERRORS I 
CRCERRs t 
LEADERS E 
WRTLOCKsl 
FGAPs I 
TIMERRs I 
OFFLINEst 
UNITS h 
TR.REOs i 
INT.ENs E 
READYs E 
ILBSs E 
fUNC2s E 
FUNCls E 
FUNC0S I 
GOs I 
FUNCTION: 
j///////y 
;//////// 



ASSI 
IT15 
IT14 
ITU 
IT12 
ITU 
IT10 
IT09 
IT08 
IT07 
IT06 
IT05 
1T04 
IT03 
IT02 
IT01 
IT00 

//// 
//// 
//// 



FUNC2+FUNC1+FUNC0 
////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////// 



jSPECIAL REGISTERS 
DRIVES %3 
TACSs %4 
TADBs %5 



;R3 CONTAINS THE DRIVE UNDER TEST 

;R4 IS USED AS A POINTER TO THE TACS REGISTER 

;R5 IS USED AS A POINTER TO THE TADB REGISTER. 



',////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 



TAU BASIC LOGIC TEST (PART 2) 
DZTABC.NEW TRAP CATCHER 



221 








222 








223 




000000 




224 








225 








226 








227 




000174 




228 


000174 


000000 




229 


000176 


000000 




230 








231 


000200 


000137 


001336 


232 


000204 


000137 


001370 


233 


000210 


000137 


001376 


234 


000214 


000137 


001404 


235 


000220 


000137 


013776 


236 


000224 


000137 


014062 


237 


000230 


000137 


014150 


238 


000234 


000137 


014230 


239 


000240 


000137 


014332 


240 


000244 


000137 


014426 


241 


000250 


000137 


014512 
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sSBTTL TRAP CATCHER 



;»ALL UNUSED LOCATIONS FROM 4 ■» 7 
jsSEQUENCE TO CATCH ILLEGAL TRAPS 
;»LOCAT10N CONTAINS TO CATCH 

.S174 
DISPREG: .WORD 
SWHEG: .WORD 
.SBTTL STARTING ADDRESS(ES) 



JMP 


P#BEGIN1 


JMP 


P#BEGIN2 


JHP 


P«BEGIN3 


JMP 


@»BEGIN4 


JMP 


0#WFGSUB 


JMP 


P»WRTSUB 


JMP 


@»RDSUB 


JMP 


PSWGPBLK 


JMP 


9SRGPBLK 


JMP 


09SrFGSB 


JMP 


i#BSFGSB 



76 CONTAIN A ".♦2, HALT" 

AND INTERRUPTS 
IMPROPERLY LOADED VECTORS 

IJ SOFTWARE DISPLAY REGISTER 
jjSOFTWARE SWITCH REGISTER 

J} JUMP TO STARTING ADDRESS OF PROGRAM 

ySELECT DRIVE(S) BEFORE STARTING TEST 

;SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 

ySETUP FOR MANUAL LOOPING 

;WR1TE FILE GAP FROM BOT TO EOT 

J WRITE CONTINUOUS BLOCKS OF DATA 

;READ CONTINUOUS BLOCKS OF DATA 

jWRlTE FILE GAP AND A BLOCK OF DATA 

;READ BLOCK OF DATA AND INTO A FILE GAP 

J SPACE FWD FILE GAP FROM BOT TO EOT 

jBACK SPACE FILE GAPS 



TAU BASIC LOGIC TEST (PART 2) 
DETABC.NEW TOGGLE 

242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 



MAINDEC»11'-DZTAB-C 
IN ROUTINES 
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J////////////////////////////////////////////////////////////////////// 

;THE FOLLOWING ROUTINES CAN BE TOGGLED IN. 



THE FOLLOWING ROUTINES (LOOPl, L00P2, & L00P3) CAN BE TOGGLED 
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

NOTE: BEFORE USING THESE ROUTINES INSURE THAT R3#R4,.S, R5 
ARE SETUP PROPERLY, 

** NOTE! IF USING SOFTWARE SWITCH REGISTER 

LOCATION SWR (=1140) MUST CONTAIN 

ADDRESS "SWPEG" (=176), 

*«» PUT VALUE INTO 176 **» 

»■» REGISTERS 3#4#S.5 MUST BE SETUP** 

#« VIA MOVE INSTRUCTIONS «« 
R3= IF USING DRIVE A 

400 IF USING DRIVE B 

R4= TAU STATUS REG ADDRESS (TAGS 177500) 

R5= TAU DATA BUFFER ADDRESS (TADB 177502) 

LOOPl WILL LOAD THE SWITCH REGISTER INTO THE TAGS, 

L00P2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END-OF-TAPE( EOT) , 



L00P3 WILL READ TO EOT. DATA WILL GO TO R0, 



L00P2 AND L00P3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER, 



jLOAD SWITCH REGISTER INTO THE TAGS 



289 
290 
291 
292 
29 3 
294 



000500 017714 000434 
000504 000775 



LOOPl: MOV 



&SWP,0TACS 
LOOPl 



;LOAD TAGS 
;LOOP 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-U -DZTAB»C MACYU 27(732) 

DETABC.NEW WRITE SWITCH REGISTER ON TAPE FROM EOT TO EOT 
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295 








296 








297 








298 








299 




000600 




300 








301 


000600 


000005 




302 


000602 


010314 




303 


000604 


U2714 


000017 


304 


000610 


032714 


000040 


305 


000614 


001775 




306 


000616 


112714 


000003 


307 


000622 


105714 




308 


000624 


100003 




309 


000626 


017715 


000306 


310 


000632 


000773 




3U 


000634 


032714 


000040 


312 


000640 


001357 




313 


000642 


000767 




314 








315 








316 








317 








318 








319 








320 








321 




000700 




322 








323 


000700 


000005 




324 


000702 


010314 




325 


000704 


U2714 


000017 


326 


000710 


032714 


000040 


327 


000714 


001775 




328 


000716 


112714 


000005 


329 


000722 


105714 




330 


000724 


100002 




331 


000726 


011500 




332 


000730 


000774 




333 


000732 


032714 


000040 


334 


000736 


001360 




335 


000740 


000770 




336 









• ; «■•»*»»»»»»*»»#*»«•*#«»«■#*•»«» »«»*»»»*««»##«.«.«.«.»»»#«.«.#»4i.«#tf«*if» «.»«.«. 



• «*«#«» 



J WRITE 


SWITCH REGISTER ON 


TAPE 


FROM BOT TO EOT 


»«»»*»»«««•#«»■»»»»«■«»»«■»*«■««»«••»■»#«•»««■»»■»««.»**»»*»«««•«•«*■»■»* 


,=600 








RESET 






;CLEAR ALL FLAGS 


MOV 


DRIVE, PTACS 




jSELECT DRIVE 


MOVB 


#REWINDIGO,(aTACS 




;G0 TO BOT 


BIT 


#READY,?TACS 




;WAIT TILL READY COMES UP 


BEO 


IS 






MOVB 


«WRITE1G0,§TACS 




;START A WRITE 


TSTB 


PTACS 




;CHECK FOR TRANSFER REQUEST 


BPL 


3$ 




;BR IF NOT SET 


MOV 


PSWR,?TADB 




JSEND DATA TO TAU 


BR 


2$ 




J LOOP 


BIT 


#PEADY,PTACS 




;D1D READY SET? 


BNE 


L00P2 




; START OVER IF YES 


BR 


2$ 




fLOOP 



• »•» ® »» »® »#«■•»««»*■»■»»#«■*»#»«■»##»»#«.# #»«^-& »»**«»■»«.««.»#«.#»*»#»*»*«.« if ^ 



J READ FROM BOT TO EOT 



MOV 


DRIVE, @TACS 


MOVB 


SREWINDiGO,PTACS 


BIT 


#READY,iTACS 


BEQ 


is 


MOVB 


#READ|GO,PTACS 


TSTB 


#TACS 


BPL 


3S 


MOV 


0TADB,R0 


BR 


2$ 


BIT 


#READY,@TACS 


BNE 


L00P3 


BR 


2$ 



#»•»»*«•#««■»»»■»■« «^ •»•»»«»##»•»*»««. 



fCLEAR ALL FLAGS 

jSELECT DRIVE 

;START A REWIND 

;WAIT ON REWIND TO FINISH 

J START A READ 

jCHECK TRANSFER REQ 

jBR IF NOT SET 
fPICKUP THE DATA 
jLOOP 

;CHECK READY 

? START OVER 
jLOOP 



TAU BASIC LOGIC TEST (PART 2) 
DZTABC.NEW COMMON TAGS 



MAINDEC-11-DZTAB-C 
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337 






338 






339 






340 






341 






342 






343 




001100 


344 


001100 




345 


001100 


000000 


346 


001102 


000 


347 


001103 


000 


348 


001104 


000000 


349 


001106 


000000 


350 


001110 


000000 


351 


001112 


000000 


352 


001114 


000 


353 


001115 


001 


354 


001116 


000000 


355 


001120 


000000 


356 


001122 


000000 


357 


001124 


000000 


358 


001126 


000000 


359 


001130 


000000 


360 


001132 


000000 


361 


001134 


000 


3b2 


001135 


000 


363 


001136 


000000 


364 


001140 


177570 


365 


001142 


177570 


366 


001144 


177560 


367 


001146 


177562 


368 


001150 


177564 


369 


001152 


177566 


370 


001154 


000 


371 


001155 


002 


372 


001156 


012 


373 


001157 


000 


374 


001 160 


000000 


375 






376 


001162 


000000 


377 


001164 


000000 


378 


001166 


000000 


379 


001170 


000000 


380 


001172 


177607 000377 


381 


001176 


077 


382 


001177 


015 


383 


001200 


000012 


384 






385 


001202 


000000 


386 


001204 


000000 


387 






388 


001206 


177500 


389 


001210 


177501 


390 


001212 


177502 


391 


001214 


177503 


392 


001216 


000260 000262 



.SBTTL COMMON TAGS 

;«THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;»USED IN THE PROGRAM, 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX, ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED—NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS PEG, ADDRESS 

TTY PRINTER BUFFER REG, ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS » OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS, AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG CBIT<07>=0=YES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREG0) WAS OBTAINED 

CONTAINS (($REGAD)+0) 

CONTAINS ((SREGAD)+2) 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEED 

; STORAGE FOR THE PC 
;STORAGE FOR THE PS 

;LOW BYTE ADDRESS OF TAGS 
;HIGH BYTE ADDRESS OF TACS 
;LOW BYTE ADDRESS OF TADB 
;HIGH BYTE ADDRESS OF TADB 
;TA11 VECTOR ADDRESS 





.=1100 




SCMTAG: 






SPASS! 


.WORD 





STSTNM! 


.BYTE 





SERFLG! 


.BYTE 





SICNT! 


.WORD 





SLPADR: 


.WORD 





slperr: 


.WORD 





SERTTL: 


.WORD 





SITEMB: 


.BYTE 





SERMAX: 


,BYTE 


1 


SERRPC: 


.WORD 





SGDADR: 


.WORD 





SBDADR: 


.WORD 





SGDDAT: 


.WORD 





SBDDAT: 


.WORD 







.WORD 







.WORD 





SAUTOB: 


.BYTE 





SINTAG: 


.BYTE 







.WORD 





swr: 


.WORD 


DSWR 


DISPLAY 


! .WORD 


DDISP 


STKSS 


177560 




STKBJ 


177562 




STPSS 


177564 




STPB: 


177566 




SNULL: 


.BYTE 





SFILLS! 


.BYTE 


2 


$FILLCS 


.BYTE 


12 


STPFLGs 


.BYTE 





SPEGAD: 


.WORD 





SREG0: 


.WORD 





SREGl! 


.WORD 





STIMES: 







SESCAPE 


;0 




SBELL: 


.ASCIE 


<207><377><377> 


SOUES: 


.ASCII 


/?/ 


SCRLF: 


.ASCII 


<15> 


SLF: 


.ASCIZ 


<12> 


.;*»»*««»««»««» 




SAVPC; 


.WORD 





5AVPS! 


.WORD 





TACSL: 


177500 




TACSH: 


177501 




TADBLS 


177502 




TADBHS 


177503 




TAVEC: 


260,262 





TAIS BASIC LOGIC TEST (PART 2) 
DZTABC.NEW COMMON TAGS 
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393 


001222 


000300 




TAPRIO: 


300 


394 


001224 


000000 


000000 


DRVKEY: 


0,0 


395 


001230 


001224 




DPVPNT: 


DRVKEY 


396 


001232 


000000 




ASKKEY: 





397 


001234 


000000 




CURDRV: 






;TAU BR LEVEL 6 
•DRIVE SELECT KEY: 



;CURRENT DRIVE BEING TESTED 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-l l^DZTAB-C 
DZTABC.NEW ERROP POINTER TABLE 
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398 






399 






400 






401 






402 






403 






404 






405 






406 






407 






408 






409 






410 






411 






412 


001236 




413 






414 






415 






416 






417 


001236 


017066 


418 


001240 


017256 


419 


001242 


017420 


420 


001244 


000000 


421 






422 






423 


001246 


017105 


424 


001250 


017273 


425 


001252 


017426 


426 


001254 


000000 


427 






428 






429 


001256 


017133 


430 


001260 


017273 


431 


001262 


017426 


432 


001264 


000000 


433 






434 






435 


001266 


017174 


436 


001270 


017273 


437 


001272 


017426 


438 


001274 


000000 


439 






440 






441 


001276 


017217 


442 


001300 


017330 


443 


001302 


017436 


444 


001304 


000000 


445 






446 






447 


001306 


017234 


448 


001310 


017366 


449 


001312 


017450 


450 


001314 


000000 


451 






452 







.SBTTL ERROR POINTER TABLE 

»THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

»LOCATION $ITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT, 

«N0TE1: IF $ITEMB IS THE ONLY PERTINENT DATA IS (SERRPC), 

»N0TE2S EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
DT 
DF 



f J POINTS TO THE ERROR MESSAGE 

M POINTS TO THE DATA HEADER 

jjPOINTS TO THE DATA 

;jP01NTS TO THE DATA FORMAT 



$ERRTB: 

iNOTEs ALL NUMBERS ARE TYPED AS 6"D1GIT OCTAL NUMBERS 



I ITEM 



J ITEM 



EMI 
DHl 
DTI 




; STATUS PROBLEM 
J PC TACS 
jSERRPC SPEG0 


2 

EM2 
DH2 
DT2 



J READY FAILED TO SET 

JPC TACS WAIT ADDRESS 

j$ERRPC SREG0 SAVPC 


3 

EM3 
DH2 
DT2 



J TRANSFER REQUEST FAILED TO SE 
}PC TACS WAIT ADDRESS 
ISERRPC SREG0 SAVPC 


4 

EM4 

DH2 

DT2 




J THE WRONG FLAG SET 

;PC TACS WAIT ADDRESS 

jSERRPC $REG0 SAVPC 


5 

EM5 

DH5 

DT5 




jDATA PROBLEM 

;PC TACS EXPECT RCV'D 

jSERRPC SREG0 SGDDAT SBDDAT 


6 

EM6 
DH6 
DT6 


; INTERRUPT PROBLEM 

;PC TACS BR LEVEL 

jSERRPC SREG0 SGDDAT 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DETAB-C 
DETABC.NEW ERROR POINTER TABLE 



453 001316 
454 

455 001316 017472 

456 001320 017544 

457 001322 017460 

458 001324 000000 
459 

460 001326 017521 

461 001330 017561 

462 001332 017466 

463 001334 
464 



EH201 
DH201 
DT201 



EM202 
DH202 
DT202 
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lITEMS 201"»202 

jTAll FAILED TO RESPOND 

IPC TACS 

jSERRPC TACS 

jBOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 



jNO DRIVES AVAILABLE 

J PC 

jSERHPC 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1"DZTAB»C 
DZTABC.NEW START OF TEST 
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465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



336 
340 
346 
354 
356 
364 
366 
370 
374 
376 
402 
404 
410 



005005 
012737 
122737 
001015 
022737 
001011 
000403 
012705 
000405 
012705 



001410 
001414 
001416 
001422 
001424 

001430 
001436 
001444 
001452 
001460 
001466 
001474 
001502 
001510 
001516 
001522 
001526 
001534 
001542 



001550 
001554 
001562 
001570 
001576 
001604 



041101 
000005 



001224 
000041 



000260 001216 



012705 000003 



012706 
005026 
022706 
001374 
012706 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
016767 
005067 
005067 
H2767 
012767 
012767 



W01100 

012264 
000340 
012536 
000340 
016476 
000340 
016562 
000340 
010476 
177444 
177442 
000001 
001534 
001542 



013746 
012737 
012767 
012767 
022777 
001012 



000004 
001610 
177570 
177570 
177777 



000022 
000030 
000032 
000034 
000036 
000024 
000026 
010466 



177361 
177344 
177340 



000004 
177350 
177344 
177334 



»»«•■»»»»»» 



',n//unu/nfu/fn//fnnHfn//n///n/n///n//nn/nn/fnn//n 

jBEGINl IS FOR NORMAL START 

;BEGIN2 IS FOR DRIVE SELECTION 

;&EGIN3 IS FOP DRIVE & ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 



J .«■*»•»»*»««#«*»»«»«««»»**»*»»»»«■«•«»•»» 



BEGIN4: 
BGNCMN: 
.SBTTL 



CLR 

MOV 

CMPB 

BNE 

CMP 

BNE 

BR 

MOV 

BR 

MOV 

BR 

MOV 



R5 

«''AB,P#DRVKEY 

«5,9#41 

BGNCMN 

#260#&»TAVEC 

BGNCMN 

BEGINS 

S1,R5 

BGNCMN 

#2,R5 

BGNCMN 

«3»P5 



; NORMAL START 

jCASSETTE DDP? 

jGO BEGIN COMMON CODE IF NO 

•STANDARD VECTOR? 

;G0 BEGIN COMMON CODE IF NO 

;GET DRIVES AND ADDRESSES 

J ASK FOR DRIVES FLAG 

jBEGIN COMMON CODE 

;ASK FOR DRIVES AND ADDRESSES 



INITIALIZE THE COMMON TAGS 



;;CLEAR THE COMMON TAGS (SCMTAG) 
#SCMTAG,R6 
(R6) + 
#SWR,R6 JfDONE? 



001606 000403 



MOV 
CLR 
CMP 
BNE 
MOV 
^INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 
jjSIZE FOR A 
jfEQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



AREA 
yjFIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 

yjLOOP BACK IF NO 
nSETUP THE STACK POINTER 



SSTACK,SP 

A FEW VECTORS 

#$SCOPE,i»IOTVEC ?;IOT VECTOR FOR SCOPE ROUTINE 

S340,?»IOTVEC*2 jjLEVEL 7 

#SERROR,&#EMTVEC J?EMT VECTOR FOR ERROR ROUTINE 

#340#98EMTVEC+2 ;;LEVEL 7 

SSTRAP,(a#TRAPVEC ^TRAP VECTOR FOR TRAP CALLS 

#340,P#TRAPVEC->2jLEVEL 7 

#SPWRDN,§#PWRVEC ;;POWER FAILURE VECTOR 

#340,P»PtoRVEC+2 ;jLEVEL 7 

SENDCT,SEOPCT yjSETUP END-OF-PROGRAM COUNTER 

STIMES ;; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE jjCLEAR THE ESCAPE ON ERROR ADDRESS 

#1,$ERMAX ; J ALLOW ONE ERROR PER TEST 

»,,SLPADP ; J INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#,,$LPERR ; J SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

••»1», SETUP FOR A SOFTWARE SWITCH REGISTER, 
i#ERRVEC»-(SP) JJSAVE ERROR VECTOR 
»64S,PtERRVEC JJSET UP ERROR VECTOR 

#DSWR,SWR JJSETUP FOR A HARDWARE SWICH REGISTER 
»DDISP, DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
»-l,?SWR ;;TRY TO REFERENCE HARDWARE SWR 
66S nBRANCH IF NO TIMEOUT TRAP OCCURRED 

jiAND THE HARDWARE SWR IS NOT = -I 
e,5S jjBRANCH IF NO TIMEOUT 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-1 i"DZTAB-C 
DZTABCNEW INITIALIZE THE COMMON TAGS 
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521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 



001610 
001614 
001616 
001624 
001632 



012716 
000002 
012767 
012767 
012637 



001660 005737 

001664 001006 

001666 026727 

001674 001005 

001676 104405 

001700 000403 

001702 112767 
001710 

001710 000413 

001740 



001740 
001742 
001744 
001746 
11752 



000176 
000174 



001636 005227 177777 

001642 001036 

001644 022737 012232 

001652 001432 

001654 104401 



177314 
177310 



000042 



64S: MOV 
RTI 

65s: MOV 
MOV 

66$: MOV 



010504 
005305 
002406 
004737 
005305 



001754 002402 
001756 004737 



001712 
000042 
177246 000176 



#65S#CSP) ffSET UP FOR TRAP RETURN 

»SWPEG,SWR yjPOINT TO SOFTWARE SWR 

SDISPPEG, DISPLAY 

(SP)+,@#ERRVEC jjRESTOPE ERROR VECTOR 



, SBTTL TYPE PROGRAM NAME 
jjTYPE THE NAME OF THE PROGRAM 



INC 
BNE 
CMP 
BEG 
TYPE 



#"1 

HERE 

|$ENOADf@#42 

HERE 

^MSGID 



F FIRST PASS 
JJFIRST TIME? 
jjBRANCH IF NO 
j;ACT-ll? 
; {BRANCH IF YES 
ITYPE ASCIZ STRING 



, SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 



67S: 
68S: 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 

BR 



@«42 

67S 

SWR,#SWREG 

68$ 

68$ 
#1,$AUT0B 



J J ARE WE RUNNING UNDER XXDP/ACT? 

; {BRANCH IF YES 

J {SOFTWARE SWITCH REG SELECTED? 

jjBRANCH IF NO 

IJGET SOFT-SWR SETTINGS 

jjSET AUTO"M0DE INDICATOR 



HERE 
^ASCIZ 



J J GET OVER THE ASCIZ 
<CRLF>/MAINDEC-iI-DZTAB»C/<CRLF> 



;;MSGID: 
HERE: 

;THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 

• R5s3 MANUAL OPERATIONS 

: R5s2 ASK FOR DRIVE(S) AND ADDRESSES (TAGS AND VECTOR) 

{ R5=l ASK FOR DRIVE(S) 

f R5S0 DON'T ASK FOR ANYTHING 



begin: 



^#*»»#««»#»»«»»*«»#»#»»»««#»»«*#*«#*«»»»«'»#««» *««■»»»»*■»««*»« 



XI MOV 
DEC 
BLT 
JSR 
DEC 
BLT 
JSR 



R5,R4 

R5 

CHKADR 

PC#@#ASK0RV 

R5 

CHKADR 

PC#@#ASKADR 



fCOPY R5 

jASK FOR DRIVES? 

;BR IF NO 

;G0 GET DRIVES TO BE TESTED 

I ASK FOR ADDRESSES? 

;BR IF NO 

•GO GET TAll ADDRESSES 






#*««»#««»»#*»«»»«»»»*»»«»»»«»««»*«»»»»»«*»»*»«»*«*»*»*»«i**» 
««»»»««»»»*»*»»»*#■»»«»«»•»«»»*•»«■«•»«■«*#*»«»»«•«■»»»»*»«■*««»««»«« 



fCHECK THAT "TAGS" WILL RESPOND TO ADDRESSING 

I 

|I, TIMEOUT OCCURRED 

{ A, TYPE ERROR MESSAGE 

? B, EXAMINE P4 

; 1, R4>0 GOTO BEGINX 

% 2. R4«s0 EXAMINE (42) 

I A, (42}s0 GOTO BEGINX 

I B, (42}>0 GOTO SENDAD 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-1 l-DZTAB»C 
DETABC.NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 
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577 








',11. 


TIMEOUT 


DIDN'T OCCUR 


578 










A. CONTINUE 


579 








i 






580 








• •«»»»«»««»»«»»»*»»■»»»»«»»■»»»«»»** 


581 


001762 


012737 


002000 000004 


CHKADR! 


MOV 


«1S,P#ERRVEC 


582 


001770 


005000 






CLR 


R0 


583 


001772 


005777 


177210 




TST 


§TACSL 


584 


001776 


000402 






BR 


2$ 


585 


002000 


005200 




ISS 


INC 


R0 


586 


002002 


022626 






CMP 


(SP)+,CSP)+ 


587 


002004 


012737 


000006 000004 


2$! 


MOV 


#ERRVEC+2»@#ERRVEC 


588 


002012 


005700 






TST 


R0 


589 


002014 


001414 






BEQ 


3$ 


590 


002016 


104201 






ERROR 


201 


591 


002020 


012705 


000002 




MOV 


#2,R5 


592 


002024 


005704 






TST 


P4 


593 


002026 


001344 






BNE 


BEGINX 


594 


002030 


013700 


000042 




MOV 


0«42,R0 


595 


002034 


001741 






BEG 


BEGINX 


596 


002036 


000137 


012232 




JMP 


@#$ENDAD 


597 


002042 


005077 


177152 




CLR 


gTAVEC+2 


598 


002046 






3$: 







;IH CASE OF TIMEOUTS 

;USE AS A SWITCH 

?SEE IF TAU RESPONDS 

;BR IF NO TIMEOUT 

;COME HERE ON TIMEOUT 

jCLEANUP THE STACK 

^RESTORE TIMEOUT VECTOR 

;DID A TIMEOUT OCCUR? 

yBR IF NO 

;TA11 FAILED TO RESPOND 

;DRIVES & ADDRESSES 

;OPERATOR INPUTS? 

;BR IF YES 

;GET MONITOR RETURN ADDRESS 

;BR IF NO MONITOR 

;G0 TO END 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-1 1 »DETAB»C 
DZTABC.NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 
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599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 



002046 
002052 
002056 
002060 
002064 
002066 
002072 
002074 
002076 
002100 
002102 
002106 
002110 
002112 
002116 
002122 
002126 
002130 
002134 
002136 
002140 
002142 
002144 
002150 
002152 
002154 
002160 
002162 
002166 
002172 
002174 
002200 
002204 
002206 
002212 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I, DESIRED DRIVES CAN NOT BE TESTED 

A. TYPE ERROR MESSAGE 

B. EXAMINE R4 

1, R4>0 GOTO BEGINX 

2. P4=0 EXAMINE (42) 

A. (42)=0 GOTO BEGINX 

B. (42)>0 GOTO $ENDAD 

II, BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A, CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B. CONTINUE IN PROGRAM 

III, DESIRED DRIVE(S) CAN BE TESTED 
A, CONTINUE IN PROGRAM 



001224 
015046 



012700 

004737 

000410 

116010 

001412 

004737 015046 

000407 

005010 

000405 

005200 

004737 015046 

000401 

105010 

012700 001224 



010037 
121060 
001002 
105060 
005710 
001401 
000412 
104202 
012705 
005704 
001272 
013700 
001667 
000137 
020427 
001002 
016704 
010437 
000405 
104401 
012737 



001230 

II 



175577 
001232 



001712 

001224 001230 



•»»■»»«■»«*^^»•»»^ 

CHKDRV: MOV 
JSR 
BR 

MOVB 
BEQ 
JSR 
BR 
CLR 
BR 
INC 
JSR 
BR 

CLRB 
MOV 
MOV 
CMPB 
BNE 
CLRB 
TST 
BEQ 
BR 

ERROR 
MOV 
TST 
BNE 
MOV 
BEQ 
JMP 

MANUALS CMP R4, 
BNE 
MOV 

OK; MOV 
BR 

PWRST: TYPE 
MOV 



IS: 



2Sf 



3S: 



5SS 



SDRVKEYf R0 
PC»§#EXAM 
IS 

1(R0),(R0) 
2S 

PC,0#EXAM 
2$ 

(R0) 
2S 
P0 

PC,@#EXAM 
2$ 

(R0) 

#DRVKEY,R0 
R0,a#DRVPNT 
(R0),1(R0) 
3$ 

1(R0) 
(R0) 
5$ 

MANUAL 
202 
»2,R5 
R4 

BEGINX 
§»42»R0 
BEGINX 
|#$ENDAD 
#3 
OK 

"1,R4 

R4,9#ASKKEY 
START 
,MSGID 
»DRVKE¥»&#DRVPNT 



PICKUP ADDRESS OF ASCII DRIVE KEY 

GO EXAMINE FIRST DRIVE 

OK TO TEST— GO CHECK NEXT 

REPLACE 1ST WITH 2ND 

BR IF NO 2ND DRIVE SELECTED 

GO EXAMINE DRIVE 

OK TO TEST 

CLEAR DRIVE CODES 

POINT TO 2ND 

GO EXAMINE DRIVE 

OK TO TEST 

CLEAR 2ND 

RESET ADDRESS POINTERS 

1ST = 2ND? 
BR IF NO 
YES-"— CLEAR 2ND 
ANX DRIVES? 
BR IF NO 

NO DRIVES AVAILABLE 

DRIVES & ADDRESS 

OPERATOR INPUTS? 

BR IF YES 

GET MONITOR RETURN ADDRESS 

NO MONITOR 

GO TO END 



? POWER FAIL RESTART 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB~C 
DZTABC.NtW GET VALUE FOP SOFTWARE SWITCH REGISTER 



655 


002220 


013777 


001220 176770 


656 


00222b 


005077 


176766 


657 


002232 


012737 


000340 177776 


658 


002240 


013704 


001206 


659 


002244 


013705 


001212 


660 


002250 


005737 


001100 


661 


002254 


001003 




662 


002256 


012737 


077777 013150 


663 


002264 


005037 


001102 


664 


002270 


005003 




665 


002272 


013701 


001230 


666 


002276 


121127 


000101 


667 


002302 


001402 




668 


002304 


012703 


000400 


669 


002310 






670 


002310 


104401 


002316 


671 


002314 


000411 




672 








673 


002340 






67 4 


002340 


112167 


176670 


675 


002344 


104401 


001234 


676 


002350 


104401 


001177 


677 


002354 


105711 




678 


002356 


001002 




679 


002360 


012701 


001224 


680 


002364 


010137 


001230 


681 


002370 


005737 


001232 


682 


002374 


002007 




683 


002376 


005000 




684 


002400 


000000 




685 


002402 


022767 


000176 176530 


686 


002410 


001001 




687 


002412 


104405 




688 


002414 






689 








690 


002414 


005737 


000042 


691 


002420 


001406 




692 


002422 


010314 




693 


002424 


112714 


000017 


694 


002430 


032714 


000040 


695 


002434 


001775 





MOV 


?#TAVEC*2r#TAVEC 


CLR 


gTAVEC+2 


MOV 


S340»P#PS 


MOV 


e#TACSL,TACS 


MOV 


§»TADBL,TADB 


TST 


@»SPASS 


BNE 


IS 


MOV 


#-CBIT15,0»MAXCNT 


CLR 


§#STSTNM 


CLR 


DRIVE 


MOV 


pifDRVPNTfRl 


CMPB 


CR1),#'A 


BEG 


TDRV 


MOV 


If UNIT, DRIVE 
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{SETUP TAU TRAP VECTOR 



jLOCKOUT ALL I/O INT 

; SETUP TACS 

ySETUP TADB 

J IF FIRST PASS SETUP FOP EXTRA LONG WAIT LOOPS 

{OTHERWISE USE OLD VALUES 

;ZERO THE TEST NUMBER 
;SET DRIVE TO "A" 
;GET DRIVE POINTER 
;IS IT DRIVE "A"? 
;BR IF YES 
;SET DRIVE TO "B" 



TYPE ,65$ ;;TYPE ASCIZ STRING 

BR 64$ jjGET OVER THE ASCIZ 



;;65s: 


. ASCIZ 


<15><12>*TESTING 


64S: 








MOVB 


(Ri)+,CURDPV 




TYPE 


,CURDRV 




TYPE 


rSCRLF 




TSTB 


(Rl) 




BNE 


IS 




MOV 


#DRVKEY,R1 


is: 


MOV 


Rl,g»DRVPNT 




TST 


@#ASKKEY 




BGE 


2$ 




CLR 


P0 




HALT 






CMP 


#SWREG,SWR 




BNE 


20$ 




GTSWR 




20S: 






JTHIS 


CODE IS 


FOR ACTll & DDP 


2$: 


TST 


g#42 




BEQ 


TSTl 




MOV 


DRIVE, §TACS 




MOVB 


»REWINDJG0,S3TACS 


3$5 


BIT 


#READY,?TACS 




BEQ 


3$ 



jSETUP TO TYPE CURRENT DRIVE 

jTYPE A CR & LF 

jLAST DRIVE BEEN SELECTED 

;BR IF NO 

jRESET DRIVE POINTER 

;SAVE DRIVE POINTER FOR NEXT TIME 

;G0 START TESTING IF NO MANUAL 

; OPERATIONS REQUESTED 

•GIVE CONTROL TO THE OPERATOR 

JUSING S/W SWITCH REG,? 

;N0- GET OUT 

jLET HIM CHANGE IT 

{CONTINUE 

;IS THERE A MONITOR? 
;G0 START TESTING IF NO 
;1F YES SELECT DRIVE 
{SEND TAPE TO BOT 
{WAIT ON READY 
{FALL THRU IF READY=I 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-U»DZTAB»C 
OZTABC.NEW GET VALUE FOP SOFTWARE SWITCH REGISTER 
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696 








697 








698 








699 








700 








701 








702 








703 








704 


002436 


000004 




705 


002440 


012767 


000001 


706 


002446 


005737 


00U00 


707 


002452 


001021 




708 


002454 


000005 




709 


002456 


010314 




710 


002460 


112714 


000017 


711 


002464 


104412 




712 


002466 


U2714 


000001 


713 


002472 


104412 




714 


002474 


163737 


013124 


715 


002502 


005237 


013150 


716 


002506 


006137 


013150 


717 


002512 


006137 


013150 


718 








719 








720 








721 








722 








723 








724 








725 


002516 


000004 




726 


002520 


012767 


000012 


727 


002526 


012767 


002554 


728 


002534 


012767 


002656 


729 


002542 


000005 




730 


002544 


010314 




731 


002546 


112714 


000017 


732 


002552 


104412 




733 


002554 


U2714 


000003 


734 


002560 


104413 




735 


002562 


105714 




736 


002564 


100401 




737 


002566 


104001 




738 


002570 


005015 




739 


002572 


005000 




740 


002574 


005001 




741 


002576 


105714 




742 


002600 


100405 




743 


002602 


062700 


000010 


744 


002606 


005501 




745 


002610 


100372 




746 


002612 


104001 




747 


002614 


105714 




748 


002616 


100005 




749 


002620 


162700 


000001 


750 


002624 


005601 




751 


002626 


100372 





u n /// n // n f n / u // n ///////// n u n // n // njn / n / u f u u ///// n f / / 

THIS ISN'T A PEAL TEST BUT A SMALL ROUTINE 10 DETERMINE THE MAX« 
TIME FOR THE WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST") 
• »»»#«-»«»-**»»^» »«*•»»»»»»«•»»»«»**»**»*«■»*#*»****■************ ****** 
»TEST 1 ROUTINE TO DETERMINE TIME OF WAIT LOOPS 

TSTl! SCOPE 

»1,STIMES I {DO 1 ITERATION 

g#$PASS {IS THIS THE FIRST PASS? 

TST2 JJBR IF NO 



MOV 

TST 

BNE 

RESET 

MOV 

MOVB 



{SELECT THE DRIVE 
{START A REWIND 
{WAIT FOR BEADY 
{WRITE A FILE GAP 
{WAIT ON READY 
{GET THE TIME IT TOOK 
{MAKE IT BIGGER 



176440 
176352 
176426 



DRIVE, PTACS 

8REWIND|G0,PTACS 
WAITREADY 

MOVB #WFGJGO,§TACS 
WAITREADY 

SUB §#HGHTIM,0#MAXCNT 
INC ?#MAXCNT 
ROL P#MAXCNT 
ROL ?#MAXCNT 

/nfnnu/unn/un//nnffunn/un//nnnnnn/unnun/u/ 
//n//u/nn/unu//n/n//n/ n///// /nn /////// n////f/// fu/nn/ 

THE FOLLOWING TEST WILL CHECK TIMING ERRORS FOR BOTH "WRITE" AND "READ", 

//u u/f n/u/nuu/n///nnf nn///n////nn ////// ///nn//n///n 

»TEST 2 TEST "TIMING ERROR" FOR "WRITE" 

TST2S SCOPE 

{DO 10. ITERATIONS 

{SET SCOPE LOOP ADDRESS 
{ESCAPE TO TEST 3 ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



gl0.,STlMES 

#7S,SLPADP 

#TST3,SESCAPE 



DRIVE, PTACS 
#REWIND|GO,?TACS 

WAITREADY 

MOVB SWRITE|GO,?iTACS 

WAITXFER 



TSTB 


iTACS 


BMI 


IS 


ERROR 


I 


CLR 


9TADB 


CLR 


R0 


CLR 


Rl 


TSTB 


gTACS 


BMI 


3$ 


ADD 


#10, R0 


ADC 


Rl 


BPL 


2$ 


ERROR 


1 


TSTB 


iTACS 


BPL 


4$ 


SUB 


#1,R0 


SBC 


Rl 


BPL 


3S 



{SELECT DRIVE 

{GO TO "CLEAR LEADER" 

{WAIT ON "READY" 

•WRITE FUNCTION 

{WAIT ON "XFER REQ" 

{IS "XFER REQ" = 1 

{BR IF YES 

{NO "XFER REQ" OCCURRED 

{KNOCK DOWN "XFER BEQ" 

{CLEAR COUNTER 

{WAIT FOR "XFER BEQ" 

{KEEP TRACK OF HOW LONG 
{IT TAKES "XFER REG" TO SET 

{"XFER REQ" FAILED TO SET 

{SAMPLE "XFER BEQ" 

{IF "XFER REQ" s SOMETHING IS WRONG 

{DOWN COUNT THE COUNTER 

{SO A "TIMING ERROR WILL 

{OCCUR 



TAll BASIC LOGIC TEST (PART 2) MAlNDEC-1 1 "DZTAB«C 
DETABC.NEW T2 TEST "TIMING ERROS" FOP "WRITE" 
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752 


002630 


000401 






BR 


5$ 


753 


002632 


104001 




4SS 


ERROR 


1 


754 


002634 


105715 




5$5 


TSTB 


0TADB 


755 


002636 


104412 






WAITREADK 


756 


002640 


005714 






TST 


PTACS 


757 


002642 


100401 






BMI 


6S 


758 


002644 


104001 






ERROR 


1 


759 


002646 


032714 


002000 


6SS 


BIT 


STIMEPR,PTACS 


760 


002652 


001001 






BNE 


TST3 ; ', 


761 


002654 


104001 






ERROR 


1 


762 








I .»»»«.»»#««***»«*«»»«•«»»»#»»«»«*«* 


763 








;»TEST 


3 


TEST "TIMING ERROR 


764 








; .«»»»«»»»»»»»*»■»»•»«*»»**««»«»*■»*» 


765 


002656 


000004 




TST3S 


SCOPE 




766 


002660 


012767 


000012 176300 




MOV 


»10,,$TIMES ;; 


767 


002666 


012767 


002714 176212 




NOV 


#7S,$LPADR ;: 


768 


002674 


012767 


003062 176266 




MOV 


#TSf4rSESCAPE j; 


769 


002702 


000005 






RESET 




770 


002704 


010314 






MOV 


DRIVE, PTACS 


771 


002706 


112714 


000017 




MOVB 


#REWIND|GO,faTACS 


772 


002712 


104412 






WAITREADlt 


773 


002714 


112714 


000003 


7S! 


MOVB 


#WRITEiGO,§TACS 


774 


002720 


012700 


000006 




MOV 


#6,R0 


775 


002724 


104413 






WAITXFER 


776 


002726 


112715 


000377 


8$S 


MOVB 


077,§TADB 


777 


002732 


104413 






WAITXFF.R 


778 


002734 


005300 






DEC 


R0 


779 


002736 


003373 






BG-r 


8S 


78kJ 


002740 


052714 


000020 




BIS 


iILBS,PTACS 


781 


002744 


104412 






WAITREADY 


782 


002746 


112714 


000017 




MOVB 


#REWiNDlGO,?TACS 


783 


002752 


104412 






WAITREADY 


784 


002754 


112714 


000005 




MOVB 


«READiGO,?TACS 


785 


002760 


104413 






WftlTXFER 


786 


002762 


105714 






TSTB 


PTACS 


787 


002764 


100401 






BMI 


IS 


788 


002766 


104001 






ERROR 


1 


789 


002770 


105715 




1$: 


TSTB 


PTADB 


790 


002772 


005000 






CLR 


P0 


791 


002774 


005001 






CLR 


Rl 


792 


002776 


105714 




2SJ 


TSTB 


gTACS 


793 


003000 


100405 






BMI 


3$ 


794 


003002 


062700 


000012 




ADD 


#10, rR0 


795 


003006 


005501 






ADC 


Rl 


796 


033010 


100372 






BPL 


2S 


797 


003012 


104001 






ERROR 


1 


798 


003014 


105714 




3S: 


TSTB 


§TACS 


799 


003016 


100005 






BPL 


4S 


800 


003020 


162700 


000001 




SUB 


#1,R0 


801 


003024 


005601 






SBC 


Rl 


802 


003026 


100372 






BPL 


3$ 


803 


003030 


000401 






BR 


5S 


804 


003032 


104001 




4S: 


ERROR 


1 


805 


003034 


105715 




5$S 


TSTB 


§TADB 


806 


003036 


052714 


000020 




BIS 


«ILBS,§TACS 


807 


003042 


104412 






WAITREADY 



;"XFER REQ« SHOULDN'T HAVE CLEARED 
.•CLEAR "XFER REQ" 
•WAIT FOR "READY" 
ylS "ERROR" BIT SET? 
;BR IF YES 

j'^ERROR" BIT NOT SET 
jIS "TIMING ERROR" = 1? 
BR IF YES 

; "TIMING ERROR" NOT SET 

« FOR "READ" 

DO 10, ITERATIONS 

SET SCOPE LOOP ADDRESS 

ESCAPE TO TEST 4 ON ERROR 



SELECT DRIVE 

GO TO "CLEAR LEADER" 

WAIT FOR "READY" 

WRITE 

WRITE THIS MANY BYTES ON TAPE 

WAIT FOR »XFER REQ" 

WRITE ONE BYTE 

WAIT FOR «XFER BEQ" 

LAST BYTE OUT? 

BR IF NO 

WRITE "CRC 

WAIT FOR "READY" 

BACK OVER THE BLOCK 

WAIT FOR "READY" 

START A "READ" 

WAIT FOR "XFER REQ" 

IS "XFER REQ" SET 

BR IF YES 

"XFER REQ" DIDN'T SET 

KNOCK DOWN "XFER REQ" 

CLEAR COUNTERS 



FIND OUT HOW LONG IT 
TAKES FOR "XFER REQ" 
TO SET 



;"XFER BEQ" FAILED TO SET 
;NOW WASTE MORE THAN THE ABOVE 
;AMOUNI OF TIME SO THAT 
;A "TE" WILL OCCUR 



J "XFER REQ" CLEARED SOME HOW 
•KNOCK UOWN "XFER REQ" 
•STOP THE READ 
•WAIT ON "READY" 



TAll BASIC LOGIC TEST (PART 2) MAlNDEC-1 1 "02TAB-C 
DZTABCNEW T3 TEST "TIMING ERROR" FOR "READ" 
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809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
350 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 



003044 
003046 
003050 
003052 
003056 
003060 



003062 
003064 
003072 
003100 
003106 
003110 
003112 
003116 
003120 
003124 
003126 
003132 
003134 
003140 
003142 
003144 
003146 
003150 
003154 
003156 
003160 
003162 
003164 
003166 
003170 
003174 
003176 
003200 
003202 
003204 
003206 
003210 
003212 
003216 
003220 
003222 
003226 
003230 
003232 
003234 
003240 
003242 
003244 
003246 
003252 
003254 
003256 



005714 
100401 
104001 
032714 
001001 
104001 



000004 
012767 
012767 
012767 
000005 
010314 
112714 
104412 
U2714 
104412 
112714 
104413 
112715 



TST 
BMI 
ERROR 
SS BIT 
BNE 
ERROR 

»TEST 4 



• «»«•»»■»«»*•»«•■»«■•»««■«»*« 



PTACS 

6S 

1 

#TIMERP,§TACS 

TST4 

1 

TEST "ERROR" OUTPU 



TST4: 



000012 
003126 
003342 



176074 
176006 
176062 



000377 



005001 

105714 

100405 

062700 000012 

005501 

100372 

104001 

105714 

100401 

104001 

162700 

005601 

100371 

105715 

104412 

005714 

100401 

104001 

032714 

001001 

104001 

112714 

005714 

100001 

104001 

112714 

005714 

100401 



SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



«10,,STIMES 

#1S#SLPADR 

STST5#SESCAPE 



DRIVE, giTACS 
»REW1NDJG0,PTACS 

WAITREADY 

MOVB #WFG}GO,@TACS 

WAITREADY 

MOVB »WRITEiGO,§TACS 

WAITXFER 



112714 
005714 
100401 

104001 



MOVB 


#377, PTADB 


CLR 


R0 


CLB 


PI 


TSTB 


PTACS 


BMI 


3$ 


ADD 


#10,,R0 


ADC 


Rl 


BPL 


2S 


ERROR 


1 


TSTB 


iTACS 


BMI 


4S 


ERROR 


1 


SUB 


#1,R0 


SBC 


Rl 


BPL 


3S 


TSTB 


iTADB 


WAITREADY 


TST 


9TACS 


BMI 


5S 


ERROR 


1 


BIT 


#TIHERR,?TACS 


BNE 


6$ 


ERROR 


1 


MOVB 


SWFG,PTACS 


TST 


@TACS 


BPL 


7S 


ERROR 


I 


MOVB 


#WRITE,PTACS 


TST 


PTACS 


BMI 


e$ 


ERROR 


1 


MOVB 


#READ,@TACS 


TST 


gTACS 


BMI 


9S 


ERROR 


i 



JIS "ERROR" SET? 
;BR IF YES 
; "ERROR" NOT = \ 
;IS THERE A "TIMING ERROR" 
GO TO NEXT TEST IF YES 

; "TIMING ERROR" NOT SET 

OF STATUS ROM USING A "TIMING ERROR" 

;D0 10. ITERATIONS 
;SET SCOPE LOOP ADDRESS 
jESCAPE TO TEST 5 ON ERROR 



SELECT DRIVE 

GO TO BEGINNING OF TAPE 

WAIT ON "READY" TO SET 

GET ON THE OXIDE 

WAIT ON "READY" TO SET 

START A WRITE 

WAIT FOR "TRANSFER BEQ" 

WRITE ONE BYTE 

CLEAR THE DOUBLE LENGTH COUNTER 

CHECK FOR "XFER REQ" 

BR IF SET 

COUNT UP UNTIL "XFER REQ" 

SETS OR OVERFLOW OCCURS 

"XFER REQ" FAILED TO SET 

CHECK "XFER REQ" 

BR IF SET 

"XFER REQ" SHOULDN'T HAVE CLEARED 

COUNT DOWN TO CAUSE A "TE" 



;CLEAR "XFER REQ" 

?WAIT FOR READY 

jMAKE SURE "ERROR" IS SET 

;«ERROB" DIDN'T SET 
fMAKE SURE "TE" IS SET 

j"TE" FAILED TO SET 

yCHECK "ERROR" WITH "WFG" 

JSAMPLE THE "ERROR" BIT 

;BR IF "ERROR" r 

; "ERROR" NOT s 

jCHECK "ERROR" WITH "WRITE" 

? SAMPLE THE "ERROR" BIT 

;8R IF "ERROR" s 1 

; "ERROR" NOT s 1 

jCHECK "ERROR" WITH "READ" 

jSAMPLE THE "ERROR" BIT 

;BR IF "ERROR" = 1 

J "ERROR" NOT s 1 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-i 1 -DZTAB"C MACYli 27(732) 11»JUN«76 

DZTABC.NEW T4 TEST "EBBOB" OUTPUT OF STATUS ROM USING A "TIMING ERROR" 
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864 


003260 


112714 


000006 


865 


003264 


005714 




866 


003266 


100001 




867 


003270 


104001 




868 


003272 


112714 


000010 


869 


003276 


005714 




870 


003300 


100001 




871 


003302 


104001 




872 


003304 


112714 


000012 


873 


003310 


005714 




874 


003312 


100001 




875 


003314 


104001 




876 


003316 


112714 


000014 


877 


003322 


005714 




878 


003324 


100001 




879 


003326 


104001 




880 


003330 


312714 


000016 


881 


003334 


005714 




882 


003336 


100001 




883 


003340 


104001 




884 








885 








886 








887 








888 








889 








890 








891 








892 








893 








894 








895 








896 








897 








898 








899 








900 








901 








902 








903 








904 








905 








906 








907 








908 








909 


003342 


000004 




910 


003344 


012767 


003362 175534 


91! 


003352 


012767 


003520 175610 


912 


003360 


000005 




913 


003362 


010314 




914 


003364 


012737 


000340 177776 


915 


003372 


012700 


000000 


916 


003376 


005001 




917 


003400 


012702 


000001 


918 


003404 


012777 


003510 175604 


919 


003412 


012777 


000340 175600 



MOVE 
TST 
BPL 
ERROR 
MOVB 
TST 
BPL 
ERROR 
MOVb 
TST 
BPL 
ERROR 
MOVB 
TST 
BPL 
ERROR 
MOVB 
TST 
BPL 
ERROR 
////////// 
////////// 
FOLLOWING 



#BSFG,gTACS 

gTACS 

10S 

1 

#BSBG,§TACS 
0TACS 

lis 

1 

#SFFG,PTACS 

?TACS 

12S 

1 

#SFBG,PTACS 

§TACS 

13$ 

1 

#REW1ND,9TACS 

aTACS 

TST5 

1 

////////////////// 

////////////////// 

TESTS CHECK THE I 



jCHECK "ERROR" WITH 

JSAMPLE THE "ERROR" 

jBR IF "ERROR" = 

f "ERROR" NOT = 

jCHECK "ERROR" WITH 

; SAMPLE THE "ERROR" 

;BR IF "ERROR" s 

; "ERROR" NOT = 

jCHECK "ERROR" WITH 

JSAMPLE THE "ERROR" BIT 

|BR IF "ERROR" s 

J "ERROR" NOT = 

JCHECK "ERROR" WITH 

fSAMpLE THE "ERROR" BIT 

jBR IF "ERROR" = 

; "ERROR" NOT = 

•CHECK "ERROR" WITH "REWIND" 

{SAMPLE THE "EBROR« BIT 
jBR IF "ERROR" = 

; "ERROR" NOT = 
/////////////////////////////////////// 
/////////////////////////////////////// 
NTERRUPT CIRCUITRY FOR; 



"BSFG" 
BIT 



"BSBG" 
BIT 



"SFFG" 



"SFBG" 



INTERRUPT OCCURS AT THE PROPER "BR" LEVEL 

"READY" WILL INTERRUPT 

"TRANSFER REQUEST" WILL INTERRUPT 

IMPROPER INTERRUPTS DO NOT OCCUR 

WITH AN ERROR PENDING AND "XFER REQ," SET THE FOLLOWING SEQUENCE OCCURS 

A) "XFER REU" CAUSES AN INTERRUPT 

B) CLEARING "XFER REQ" ALLOWS "READY" TO SET 

C) "READY" CAUSES AN INTERRUPT 

////////////////////////////////////////////////////////////////////// 

jTHIS TEST WILL SETUP THE TAU'S VECTOR ADDRESS AND AT ADDRESS 

;A JMP 0{PC)+ IS STORED INCASE THE VECTOR IS READ AS 0» 

I IT WILL THEN SET THE PRIORITY LEVEL TO AND WASTE ENOUGH TIME 

J FOR AN INTERRUPT TO OCCUR. 

jAFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

yAND CHECK IF AN INTERRUPT OCCURRED, 

; •#«•*■»»»«•■»»»»»»*»»«»»»■»»»•»*»■»•»»»*■»»»«•«■*■»««•»■»»**»»«■*«»»*»»**»*»«■«» 

!»TEST 5 TEST INTERRUPT WITH READY = "1" AT LEVEL 

TST5S 

?jSET SCOPE LOOP ADDRESS 
jjESCAPE TO 6S ON ERROR 



SCOPE 




MOV 


#1$,$LPADR 


MOV 


#6S,SESCAPE 


RESET 




MOV 


DRIVE, PTACS 


MOV 


»340,9SPS 


MOV 


»0rR0 


CLR 


Rl 


MOV 


#1,R2 


MOV 


#4$,eTAVEC 


MOV 


#340,0TAVEC*2 



;LOCK OUT ALL INTERRUPTS 

;TE5T AT PRIORITY LEVEL 

•CLEAR INTERRUPT KEY 

;SETUP TO WASTE A LITTLE TIME 

; INTERRUPT RETURN 

JLOCK OUT THE WORLD IF INTERRUPT 



TAll BASIC LOGIC TEST (PART 2) MAlNDEC-1 1-DETAB»C 
DZTA8C.NEW T5 TEST INTERRUPT WITH READY = 



MACYU 27(732) 
"1" AT LEVEL 



11»JUN"76 13:26 PAGE 22 



920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
93! 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 



003420 
003426 
003434 
003440 
003446 
003450 
003452 
003460 
003462 
003464 
003472 
003474 

003476 
003504 
003506 

003510 
003512 
003514 
003516 

003520 
003522 
003530 
003534 
003540 



003544 
003546 
003554 
003562 
003564 
003566 
003574 
003600 
003602 
003606 
003614 
003622 
003630 
003636 
003642 
003650 
003652 
003654 
003662 



012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 

022737 
002405 
104006 

005201 
000002 
022626 
104006 

005014 
013777 
005077 
005037 
005037 



000137 
003514 
000100 
000000 



000000 
000002 



000000 001222 



001222 3$S 



001220 
175464 



000004 

012767 003564 

012767 003722 



000340 

n 



010314 
012737 
012700 
005001 
012702 
012777 
012777 
012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 



175332 
175406 



«TEST 
TST6S 



JSETUP TO CATCH INTERRUPT IF 
', IT GOES TO LOCATION 
ySET INTERRUPT ENABLE 
?SET TO PRIORITY LEVEL 
JKILL SOME TIME 

fLOCK OUT THE WORLD 

;Din AN INTERRUPT OCCUR? 

;BR IF YES 

;WAS AN INTERRUPT EXPECTED? 

;BR IF NO 

J INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 

; INTERRUPT OCCURRED"-SHOULD IT HAVE? 

;BR IF YES 

; INTERRUPT OCCURRED AT PRIORITY LEVEL 

ySET INTERRUPT KEY 

yRETURN AFTER INTERRUPT 

jPOP THE STACK 

J INTERRUPT WENT TO LOCATION 

iCLEAR INTERRUPT ENABLE 
;SET TRAP CATCHER 



jTHIS TEST WILL SETUP THE TAU'S VECTOR ADDRESS AND AT ADDRESS 

?A JMP ?(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0. 

J IT WILL THEN SET THE PRIORITY LEVEL TO 1 AND WASTE ENOUGH TIME 

?FOR AN INTERRUPT TO OCCUR. 

jAFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

jAND CHECK IF AN INTERRUPT OCCURRED, 

6 TEST INTERRUPT WITH READY a "i" AT LEVEL 1 

SCOPE 

nSET SCOPE LOOP ADDRESS 
nESCAPE TO 6$ ON ERROR 



MOV 


M37,0#0 


MOV 


#5S,@#2 


MOVB 


«INT.EN,gTACS 


MOV 


#0«40,ia«PS 


ASL 


R2 


BNE 


2S 


MOV 


#340,g#PS 


TST 


Bl 


BNE 


3S 


CMP 


»0»40,@#TAPPIO 


BGE 


6$ 


ERROR 


6 


CMP 


»0«40,g#TAPRlO 


BLT 


6S 


ERROR 


6 


INC 


Rl 


RTI 




CMP 


(SP)-s-,(SP) + 


ERROR 


6 


CLR 


iTACS 


MOV 


@»TAVEC+2»§TAVEC 


CLR 


9TAVEC+2 


CLR 


?#0 


CLR 


0#2 



175402 
175376 



1 
003712 
000340 
000137 
003716 
000100 
000040 177776 



000340 177776 



MOV 

MOV 

RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

ASL 

BNE 

MOV 

TST 



SU^SLPADR 
#6$;$ESCAPE 



DRIVE, §TACS 

t340,9»PS 

#lfR0 

Rl 

#lfR2 

#4$,@TAVEC 

#340,0TAVEC*2 

#137, i#0 

#5$,&#2 

#INT,EN,®TACS 

#1»40,@#PS 

R2 

2$ 

#340,@#PS 

Rl 



iLOCK OUT ALL INTERRUPTS 

ITEST AT PRIORITY LEVEL I 

;CLEAR INTERRUPT KEY 

•SETUP TO WASTE A LITTLE TIME 

; INTERRUPT RETURN 

yLOCK OUT THE WORLD IF INTERRUPT 

J SETUP TO CATCH INTERRUPT IF 

', IT GOES TO LOCATION 

J SET INTERRUPT ENABLE 

•SET TO PRIORITY LEVEL 1 

;KILL SOME TIME 

jLOCK OUT THE WORLD 
jDID AN INTERRUPT OCCUR? 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1«.DZTAB-C 
DZTABC.NEW T6 TEST INTERRUPT WITH READY = 



MACYii 27(732) 
AT LEVEL 1 
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976 003664 001005 

977 003666 022737 

978 003674 002012 

979 003676 104006 



981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 



003700 
003706 
003710 

003712 
003714 
003716 
003720 

003722 
003724 
003732 
003736 
003742 



022737 
002405 



005201 
000002 
022626 
104006 

005014 
013777 
005077 
005037 
005037 



003746 
003750 
003756 
003764 
003766 
003770 
003776 
004002 
004004 
004010 
004016 
004024 
004032 
004040 
004044 
004052 
004054 
004056 
004064 
004066 
004070 
004076 
004100 

004102 
004U0 
004112 



000040 001222 



000040 001222 3S! 



001220 
175262 



000004 

012767 
012767 
000005 
010314 
012737 
012700 
005001 
012702 
012777 
012777 
012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 

022737 
002405 

104006 



;«TEST 
• •«■«•»» 
T5T7; 



003766 
004124 



000340 
000002 

000001 
004114 
000340 
000137 
004120 
000100 
000100 



175130 
175204 



175200 
175174 

000000 
000002 

177776 
177776 
001222 



000100 001222 3$: 



BNE 
CMP 
BGE 
ERROR 

CMP 
BLT 
ERROR 

INC 
RTI 
CMP 
ERROR 

CLR 
MOV 
CLR 
CLR 
CLR 

JTHIS 
;A JMP 
jIT WI 
;FOR A! 
J AFTER 
;AND C 

7 
*»»■»*■»« 

SCOPE 

MOV 

MOV 

RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVE 

MOV 

ASL 

BNE 

MOV 

TST 

BNE 

CMP 

BGL 

ERHOH 

CMP 
BLT 
ERROR 



3S 

#1#40 



«l«40,g«TAPRIO 
6$ 



CSP)+,(SP)+ 



;BR IF YES 

•WAS AN INTERRUPT EXPECTED? 

;BR IF NO 

; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 1 

J INTERRUPT OCCURRED--SHOULD IT HAVE? 

;BR IF YES 

; INTERRUPT OCCURRED AT PRIORITY LEVEL 1 

;SET INTERRUPT KEY 

; RETURN AFTER INTERRUPT 

;POP THE STACK 

; INTERRUPT WENT TO LOCATION 



;CLEAR INTERRUPT ENABLE 
;SET TRAP CATCHER 



gTACS 

i«TAVEC*2»?TAVEC 

gTAVEC*2 

&#0 

P«2 
*»»»*»#*■»*»#»«■»»«■»«»«»«■*»■»■» »»»*«»»»*»«»»**»»»*»«»«» 
TEST WILL SETUP THE TAU'S VECTOR ADDRESS AND AT ADDRESS 

P(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0, 
LL THEN SET THE PRIORITY LEVEL TO 2 AND WASTE ENOUGH TIME 
N INTERRUPT TO OCCUR, 

THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
HECK IF AN INTERRUPT OCCURRED. 
»»»»«•*«•«■«»#»*»»*•»««»■»»■»•»*»*■»»•»**«•»«•#■»**«»■»*»«*■»»»** 

TEST INTERRUPT WITH READY = "1" AT LEVEL 2 



#1S,$LPADR 
#6$,SESCAPE 

DRIVE, PTACS 

#340, ?#PS 

#2,R0 

Rl 

#1,R2 

#4S,9TAVEC 

#340,gTAVEC+2 

#137, ?#0 

»5$,§#2 

«INT.EN,@TACS 

|}2«40,P#PS 

R2 

2S 

«340,§#PS 

HI 

3S 

»2»40,P#TAPRIO 

6$ 

6 



IJSET SCOPE LOOP ADDRESS 
jjESCAPE TO 6$ ON ERROR 



82»4 



,@#TAPRI0 



LOCK OUT ALL INTERRUPTS 

TEST AT PRIORITY LEVEL 2 

CLEAR INTERRUPT KEY 

SETUP TO WASTE A LITTLE TIME 

INTERRUPT RETURN 

LOCK OUT THE WORLD IF INTERRUPT 

SETUP TO CATCH INTERRUPT IF 

IT GOES TO LOCATION 
SET INTERRUPT ENABLE 
SET TO PRIORITY LEVEL 2 
KILL SOME TIME 

LOCK OUT THE WORLD 

DID AN INTERRUPT OCCUR? 

BR IF YES 

WAS AN INTERRUPT EXPECTED? 

BR IF NO 

INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 

INTERRUPT OCCURHED--SHOULD XT HAVE? 

BR IF YES 

INTERRUPT OCCURRED AT PRIORITY LEVEL 2 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB«C 
DZTABC.NEW T7 TEST INTERRUPT WITH READY = 



MACYU 27(732) 
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1032 










1033 


004114 


005201 






1034 


004U6 


000002 






1035 


004120 


022626 






1036 


004122 


104006 






1037 










1038 


004124 


005014 






1039 


004126 


013777 


001220 


175062 


1040 


004134 


005077 


175060 




1041 


004140 


005037 


000000 




1042 


004144 


005037 


000002 




1043 










1044 










1045 










1046 










1047 










1048 










1049 










1050 










1051 










1052 










1053 


004150 


000004 






1054 


004152 


012767 


004170 


174726 


1055 


004160 


012767 


004326 


175002 


1056 


004166 


000005 






1057 


004170 


010314 






1058 


004172 


012737 


000340 


177776 


1059 


004200 


012700 


000003 




1060 


004204 


005001 






1061 


004206 


012702 


000001 




1062 


004212 


012777 


004316 


174776 


1063 


004220 


012777 


000340 


174772 


1064 


004226 


012737 


000137 


000000 


1065 


004234 


012737 


004322 


000002 


1066 


004242 


112714 


000100 




1067 


004246 


012737 


000140 


177776 


1068 


004254 


006302 






1069 


004256 


001376 






1070 


004260 


012737 


000340 


177776 


1071 


004266 


005701 






1072 


004270 


001005 






1073 


004272 


022737 


000140 


001222 


1074 


004300 


002012 






1075 


004302 


104006 






1076 










1077 


004304 


022737 


000140 


001222 


1078 


004312 


002405 






1079 


004314 


104006 






1080 










1081 


004316 


005201 






1082 


004320 


000002 






1083 


004322 


022626 






1084 


004324 


104006 






1085 










1086 


004326 


005014 






1087 


004330 


0U777 


001220 


174660 



INC 


Rl 


RTI 




CMP 


{SP)4-,(SP) + 


ERROR 


6 


CLR 


PTACS 


MOV 


&#TAVEC-8-2,PTAVEC 


CLR 


9TAVEC+2 


CLR 


§#0 


CLR 


?#2 



*TEST 
TST10 



;SET INTERRUPT KEY 
JRETURN AFTER INTERRUPT 
,'POP THE STACK 
J INTERRUPT WENT TO LOCATION 

;CLEAR INTERRUPT ENABLE 
jSET TRAP CATCHER 



jTHIS TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 

;A JMP PCPC)+ IS STORED INCASE THE VECTOR IS READ AS 0, 

;1T WILL THEN SET THE PRIORITY LEVEL TO 3 AND WASTE ENOUGH TIME 

?FOR AN INTERRUPT TO OCCUR. 

jAFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

;AND CHECK IF AN INTERRUPT OCCURRED, 

«»*#».»®#**»«.»»«»»*## »■»«•»»#»«.■»»■»»«.««»«■««•«■■».»»»»«##« #*^»#it^j««. 

10 TEST INTERRUPT WITH READY = "1" AT LEVEL 3 



»*»»#»*»»■»«•■»■»«•»■»«•«**«•»*»»»«•»» 



^ »*«•*«. »»■»»»«##*■»» 



4SS 

5SS 



SCOPE 

MOV 

MOV 

RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

ASL 

BNE 

MOV 

TST 

BNE 

CMP 

BGE 

ERROR 

CMP 
BLT 
ERROR 

INC 
RTI 
CMP 
ERROR 



#1S,SLPADR 
#6$,SESCAPE 

DRIVE, PTACS 

»340,9#PS 

#3,R0 

Rl 

«1,R2 

#4S,3TAVEC 

#340,0TAVECf2 

#137, ?#0 

S5S,@#2 

#INT. EN, PTACS 

#3»40,P#PS 

R2 

2$ 

#340,P»PS 

Rl 

3$ 

#3»40,g!#TAPRIO 

6$ 

6 

#3»40,?#TAPRIO 
6S 



CSP)*,CSPJ* 
6 



CLR @TACS 

MOV §#TAVEC+2,eTAVEC 



;jSET SCOPE LOOP ADDRESS 
jjESCAPE TO 6S ON ERROR 



;LOCK OUT ALL INTERRUPTS 

jTEST AT PRIORITY LEVEL 3 

jCLEAR INTERRUPT KEY 

; SETUP TO WASTE A LITTLE TIME 

; INTERRUPT RETURN 

jLOCK OUT THE WORLD IF INTERRUPT 

fSETUP TO CATCH INTERRUPT IF 

IT GOES TO LOCATION 
;SET INTERRUPT ENABLE 
;SET TO PRIORITY LEVEL 3 
jKILL SOME TIME 

;LOCK OUT THE WORLD 

;D1D AN INTERRUPT OCCUR? 

;BR IF YES 

;WAS AN INTERRUPT EXPECTED? 

jBR IF NO 

? INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 3 

; INTERRUPT OCCURRED--SHOULD IT HAVE? 

jBR IF YES 

I INTERRUPT OCCURRED AT PRIORITY LEVEL 3 

jSET INTERRUPT KEY 

;RETURN AFTER INTERRUPT 

I POP THE STACK 

? INTERRUPT WENT TO LOCATION 

jCLEAP INTERRUPT ENABLE 
;SET TRAP CATCHER 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1-DZTAB-C 
DZTABC.NEW T10 TEST INTERRUPT WITH READY s " i ' 



HACYll 27(732) 
AT LEVEL 3 
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1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 



004336 005077 
004342 00S037 
004346 00S037 000002 



004352 
004354 
004362 
004370 
004372 
004374 
004402 
004406 
004410 
004414 
004422 
004430 
004436 
004444 
004450 
004456 
004460 
004462 
004470 
004472 
004474 
004502 
004504 



000004 
0! j;767 
012767 
0-301(5^5 
010314 
012737 
012700 
005001 
012702 
012777 
012777 
012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 



004372 
004530 



000340 
000004 

000001 
004520 
000340 
000137 
004524 
000100 
000200 



174524 
174600 



174574 
174570 

000000 
000002 

177776 



000340 177776 



000200 001222 



CLR 
CLR 
CLR 
I ••»»■»»«»»»*•»*•» 
jTHIS 
;A JMP 
;IT i^I 
J FOR 
{AFTER 
;AND C 

»TEST U 

TSTIU SCOPE 
MOV 
MOV 
RESET 

U: MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOVB 
MOV 

2$! ASL 
BNE 
MOV 
TST 
BNE 
CMP 
BGE 
ERROR 



@TAVEC-J'2 

9»0 

i#2 

TEST WILL SETUP THE TAU'S VECTOR ADDRESS AND AT ADDRESS 
i(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0« 

LL THEN SET THE PRIORITY LEVEL TO 4 AND WASTE ENOUGH TIME 

N INTERRUPT TO OCCUR, 
THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

HECK IF AN INTERRUPT OCCURRED, 

TEST INTERRUPT WITH READY = "1" AT LEVEL 4 



004506 022737 

004514 002405 

004516 104006 

004520 005201 

004522 000002 

004524 022626 

004526 104006 

004530 005014 

004532 013777 001220 

004540 005077 174454 

004544 005037 000000 

004550 005037 000002 



000200 001222 3S! 



CMP 
BLT 
ERROR 

INC 
RTi 
CMP 
ERROR 

CLR 
MOV 
CLR 
CLR 
CLR 



#IS,SLPADR 
#6$,$ESCAPE 

DRIVE, gTACS 

«340»P#PS 

«4,R0 

Ri 

«lrR2 

Sf4$f ?TAVEC 

#340,iTAVEC+2 

S137,§»0 

#5$,?S2 

8INT.EN,9TACS 

»4»40,P»PS 

R2 

2S 

#340,i»PS 

Rl 

3S 

#4«40,§#TAPRIO 

6S 



«4»40#&«TAPRIO 

6S 

6 



(SP)*,CSP)* 



§TACS 

g»TAVEC+2,eTAVEC 

§TAVEC-f2 

§»0 

@#2 



;|SET SCOPE LOOP ADDRESS 
; {ESCAPE TO 6S ON ERROR 



;LOCK OUT ALL INTERRUPTS 

fTEST AT PRIORITY LEVEL 4 

{CLEAR INTERRUPT KEY 

{SETUP TO WASTE A LITTLE TIME 

{INTERRUPT RETURN 

{LOCK OUT THE WORLD IF INTERRUPT 

{SETUP TO CATCH INTERRUPT IF 

{ IT GOES TO LOCATION 

{SET INTERRUPT ENABLE 

{SET TO PRIORITY LEVEL 4 

{KILL SOME TIME 

{LOCK OUT THE WORLD 

{DID AN INTERRUPT OCCUR? 

•RR XF YES 

JwAS AN INTERRUPT EXPECTED? 

{BR IF NO 

{INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 4 

{INTERRUPT OCCURRED««»SHOULD IT HAVE? 

{BR IF YES 

{INTERRUPT OCCURRED AT PRIORITY LEVEL 4 

{SET INTERRUPT KEY 

{RETURN AFTER INTERRUPT 

{POP THE STACK 

{INTERRUPT WENT TO LOCATION 

{CLEAR INTERRUPT ENABLE 
{SET TRAP CATCHER 



{»»«*»»»«*»»«»*»»»»**»»»»*«•»«*«**»»»»«»*«*«»*»***»»«•*«*****«**** 

{THIS TEST WILL SETUP THE TAU'S VECTOR ADDRESS AND AT ADDRESS 
{A JMP 0CPC)* IS STORED INCASE THE VECTOR IS READ AS 0, 
{IT WILL THEN SET THE PRIORITY LEVEL TO 5 AND WASTE ENOUGH TIME 
{FOR AN INTERRUPT TO OCCUR, 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-1 1 "DZTAB"C 
DZTABC.NEW Til TEST INTERRUPT WITH READY s 



I" AT LEVEL 4 
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1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
U63 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 



004554 
004556 
004564 
004572 
004574 
004576 
004604 
004610 
004612 
004616 
004624 
004632 
004640 
004646 
004652 
004660 
004662 
004664 
004672 
004674 
004676 
004704 
004706 



000004 
012767 
012767 
0fei0005 
010314 
012737 
012700 
005001 
012702 
012777 
012777 
012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 



004574 
004732 



000340 
15 



000001 
004722 
000340 
000137 
004726 
000100 
000240 



004710 022737 

004716 002405 

004720 104006 

004722 005201 

004724 000002 

004726 022626 

004730 104006 

004732 005014 

004734 013777 001220 

004742 005077 174252 

004746 005037 000000 

004752 005037 000002 



174322 
174376 



174372 
174366 



000240 001222 



4TEST 
{»■»»»» 
TST12 



000240 001222 3S! 



4$s 
5S: 



{AFTER 
{AND C 

12 

SCOPE 

MOV 

MOV 

RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

ASL 

BNE 

MOV 

TST 

BNE 

CMP 

BGE 

ERROR 

CMP 
BLT 
ERROR 



THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
HECK IF AN INTERRUPT OCCURRED, 

TEST INTERRUPT WITH READY = " 1 " AT LEVEL 5 



S1$,SLPADR 
$6Sf $ESCAPE 

DRIVE, fTACS 

S340,(a#PS 

#5,R0 

Rl 

#UR2 

#4$,?TAVEC 

»340,(aTAVEC*2 

#137, i»0 

#5$, §#2 

#INT,EN,?TACS 

#5»40,§SPS 

R2 

2$ 

»340,?«PS 

Rl 

3S 

»5*40,§#TAPRIO 

6S 

6 

#5«40,f#TAPRIO 

6S 

6 



INC Rl 

RTI 

CMP CSP)+,CSP)+ 

ERROR 6 



{SET SCOPE LOOP ADDRESS 
{ESCAPE TO 6S ON ERROR 



{LOCK OUT ALL INTERRUPTS 

{TEST AT PRIORITY LEVEL 5 

{CLEAR INTERRUPT KEY 

{SETUP TO WASTE A LITTLE TIME 

{INTERRUPT RETURN 

{LOCK OUT THE WORLD IF INTERRUPT 

{SETUP TO CATCH INTERRUPT IF 

{ IT GOES TO LOCATION 

{SET INTERRUPT ENABLE 

{SET TO PRIORITY LEVEL 5 

{KILL SOME TIME 

{LOCK OUT THE WORLD 

{DID AN INTERRUPT OCCUR? 

|BR IF YES 

{WAS AN INTERRUPT EXPECTED? 

{BR IF NO 

{INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 5 

{INTERRUPT OCCURRED«~SHOULD IT HAVE? 

{BR IF YES 

{INTERRUPT OCCURRED AT PRIORITY LEVEL 5 

{SET INTERRUPT KEY 

{RETURN AFTER INTERRUPT 

{POP THE STACK 

{INTERRUPT WENT TO LOCATION 



CLR 
MOV 
CLR 
CLR 
CLR 



§TACS 

©STAVEC-t-a^^TAVEC 

9TAVEC-I-2 

@#0 

i#2 



{CLEAR INTERRUPT ENABLE 
{SET TRAP CATCHER 



004756 000004 

004760 012767 004776 174120 

004766 012767 005134 174174 



»TEST 
{»»««■■ 
TST13 



{THIS TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 

{A JMP 9(PC)4- IS STORED INCASE THE VECTOR IS READ AS 0s 

{IT WILL THEN SET THE PRIORITY LEVEL TO 6 AND WASTE ENOUGH TIME 

{FOR AN INTERRUPT TO OCCUR, 

{AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

{AND CHECK IF AN INTERRUPT OCCURRED, 

13 TEST INTERRUPT WITH READY = "1" AT LEVEL 6 

«»«#»»#® »»«.»»«.&**»»*»»»«.«#«.»*«■#»»»»■»»«»#«#«#«. «.»049.««. «.##*»«.«« 

SCOPE 

MOV #1S,SLPADR {{SET SCOPE LOOP ADDRESS 

MOV #6$,$ESCAPE {{ESCAPE TO 6S ON ERROR 



TAl! BASIC LOGIC TEST (PART 2) MAINDEC-1 l"DgTftB«"C 
DZTABC.NEW T13 TEST INTERRUPT WITH READY s 



"1" AT LEVEL 6 
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1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
S23i 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 



004774 
004776 
005000 
005006 
005012 
005014 
005020 
005026 
005034 
005042 
005050 
005054 
005062 
005064 
005066 
005074 
005076 
005100 
005106 
005U0 

005112 
005120 
005122 

005124 
005126 
005130 
005132 

005134 
005136 
005144 
005150 
005154 



005160 
005162 
005170 
005176 
005200 
005202 
005210 
005214 
005216 
005222 
005230 



000004 
012767 
012767 
000005 
010314 
012737 
012700 
005001 
012702 
012777 
012777 



005124 
000340 
000137 
005130 

000100 
000300 



010314 
012737 
012700 
005001 
012702 
012777 
012777 
012737 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 

022737 

002405 
104006 

005201 
000002 
022626 

104006 



005014 

013777 001220 

005077 174050 

005037 000000 

005037 000002 



0340 177776 



174170 
174164 



005200 
005336 



000340 
000007 

000001 
005326 
000340 



000002 

177776 

2$5 

000340 177776 
000300 001222 

000300 001222 3Ss 



• «»«»■ 
*TEST 

• *«■*«• 

TSTi4; 



173716 
173772 



173766 
173762 



RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVE 

MOV 

ASL 

BNE 

MOV 

TST 

BNE 

CMP 

BGE 

ERROR 

CMP 
BLT 
ERROR 

INC 
RTI 

CMP 
ERROR 

CLR 
MOV 
CLR 
CLR 
CLR 

I THIS 
,'R JMP 
I IT WI 
I FOR A 
f AFTER 
|AND C 

14 

SCOPE 

MOV 

MOV 

RESET 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 



DRIVE, PTACS 

#340,eifPS 

#6,R0 

Rl 

»1,R2 

#4$,§TAVEC 

»340/&TAVEC<!-2 

#137, e#0 

#5S,§«2 

#INT,EN,PTACS 

#6*40, @«PS 

R2 

2$ 

#340,§8PS 

Rl 

3$ 

#6»40,@#TAPRIO 

6$ 

6 

ll6»40,g#TAPRIO 



Rl 
(SP)+,(SP)+ 



LOCK OUT ALL INTERRUPTS 

TEST AT PRIORITY LEVEL 6 

CLEAR INTERRUPT KEY 

SETUP TO WASTE A LITTLE TIME 

INTERRUPT RETURN 

LOCK OUT THE WORLD IF INTERRUPT 

SETUP TO CATCH INTERRUPT IF 

IT GOES TO LOCATION 
SET INTERRUPT ENABLE 
SET TO PRIORITY LEVEL 6 
KILL SOME TIME 

LOCK OUT THE WORLD 

DID AN INTERRUPT OCCUR? 

8R IF YES 

WAS AN INTERRUPT EXPECTED? 

BR IF NO 

INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 6 

INTERRUPT OCCURRED"" SHOULD IT HAVE? 

BR IF YES 

INTERRUPT OCCURRED AT PRIORITY LEVEL 6 

SET INTERRUPT KEY 

RETURN AFTER INTERRUPT 

POP THE STACK 

INTERRUPT WENT TO LOCATION 



CLEAR INTERRUPT ENABLE 
SET TRAP CATCHER 



iTACS 

§#TAVEC+2,?TAVEC 

@TAVEC*2 

es0 

@»2 

TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 
aCPO* IS STORED INCASE THE VECTOR IS READ AS 0» 

LL THEN SET THE PRIORITY LEVEL TO 7 AND hASTE ENOUGH TIME 

N INTERRUPT TO OCCUR, 
THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

HECK IF AN INTERRUPT OCCURRED, 

TEST INTERRUPT WITH READY = "1" AT LEVEL 7 



SlS,$LPADR 
#6S,SESCAPE 

DRIVE, PTACS 

#340,P»PS 

#7*R0 

Rl 

»1,R2 

#4S,@TAVEC 

#340,§TAVEC+2 



fjSET SCOPE LOOP ADDRESS 
ff ESCAPE TO 6$ ON ERROR 



jLOCK OUT ALL INTERRUPTS 

;TEST AT PRIORITY LEVEL 7 

jCLEAR INTERRUPT KEY 

ISETUP TO WASTE A LITTLE TIME 

; INTERRUPT RETURN 

jLOCK OUT THE WORLD IF INTERRUPT 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-U -DETAB«-C 
DZTABC.NEW T14 TEST INTERRUPT WITH READY = 



1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
S298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 



005236 
005244 
005252 
005256 
005264 
005266 
iu05270 
005276 
005300 
005302 
005310 
005312 

005314 
005322 
005324 

005326 

005330 
005332 

005334 

005336 
005340 
005346 
005352 
005356 



005362 
005364 
005372 
005400 
005406 
005410 
005412 
005416 
005420 
005422 
005426 
005430 
005436 
005442 
005450 
005456 
005464 
005472 
005476 
005500 
005504 
005506 
005510 
005512 
005520 
005522 



0127J7 
012737 
112714 
012737 
006302 
001376 
012737 
005701 
001005 
022737 
002012 
104006 

022737 

002405 
104006 



022626 

104006 

005014 
013777 
005077 
005037 
005037 



012767 
012767 
012767 



010314 
U2714 
104412 
010314 
112714 
104412 
012737 
012701 
012777 
012777 
012737 
012737 
112714 
104413 
005037 



006301 
001376 
012737 



000137 000000 

005332 000002 
000100 

000340 177776 



000340 177776 
000340 001222 



034 



001220 
173646 
000000 
000002 



000010 
005420 

005530 



1 

000340 
000001 
005526 
000340 
000137 
005522 
000103 

177776 



4$l 



n = "1 


" AT LEVEL 7 


MOV 


#137, P#0 


MOV 


»5$,9#2 


MOVB 


»INT,EN,§TACS 


MOV 


#7«40,@#PS 


ASL 


R2 


BNE 


2S 


MOV 


»340,P#PS 


TST 


Rl 


BNE 


3S 


CMP 


#7«40,e#TAPRIO 


BGE 


6$ 


ERROR 


6 


CMP 


#7«40,i8TAPRIO 


BLT 


6$ 


ERROR 


6 


INC 


Rl 


RTI 




CMP 


(SP)-}.,{SP)-^ 


ERROR 


6 


CLR 


@TACS 


MOV 


@«TAVEC+2,§TAVEC 


CLR 


gTAVEC-{-2 


CLR 


@«0 


CLR 


@«2 
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JSETUP TO CATCH INTERRUPT IF 

IT GOES TO LOCATION 
JSET INTERRUPT ENABLE 
;SET TO PRIORITY LEVEL 7 
;KILL SOME TIME 



J LOCK OUT THE WORLD 

;DID AN INTERRUPT OCCUR? 

J BR IF YES 

;WAS AN INTERRUPT EXPECTED? 

JBR IF NO 

; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 7 

.•INTERRUPT OCCURRED--SHOULD IT HAVE? 

jBR IF YES 

,• INTERRUPT OCCURRED AT PRIORITY LEVEL 7 

J SET INTERRUPT KEY 

I RETURN AFTER INTERRUPT 

?POP THE STACK 

; INTERRUPT WENT TO LOCATION 

jCLEAR INTERRUPT ENABLE 
;SET TRAP CATCHER 



173574 
173506 
173562 



|*JTEST 15 TEST INTERRUPT WITH ''TRANSFER REQUEST" s i 

TST15I SCOPE 

;D0 10 ITERATIONS 



MOV 
MOV 

MOV 
RESET 
MOV 
MOVB 



#10,STIMES 
«4S,$LPADR 
I3S,SESCAPE 



DRIVE, iTACS 
SREWIND+GO,gTACS 

WAITREADY 

MOV DRIVE, iTACS 

MOVB #WFG+GO, iTACS 

WAITREADY 



173546 
173542 



000340 177776 



MOV 

MOV 

MOV 

MOV 

NOV 

MOV 

MOVB 

WAITXFER 

CLR 

CLR 

ASL 

BNE 

MOV 

ERROR 

CMP 



#340,P#PS 

il,Rl 

S2S,@TAVEC 

#340,§TAVEC+2 

1137, ?#0 

«5$,@#2 

#WRITE!INT»ENiGO,§TACS 

g#PS 

R0 

Rl 

1$ 

1340, @$PS 

6 

(SP)4-,(SP)* 



SET SCOPE LOOP ADDRESS 
ESCAPE TO 3S ON ERROR 



JSELECT DRIVE 

JPOSITION THE TAPE 

?G0 WAIT FOR "READY" TO SET 

ISELECT DRIVE 

jSTART A "WRITE FILE GAP" 

?G0 WAIT FOR "HEADY" TO SET 

jLOCK OUT ALL INTERRUPTS 

jSETUP TO WASTE SOME TIME 

JSETUP INTERRUPT RETURN 

.•PRIORITY "7" ON INTERRUPT 

yCATCH INTERRUPT IF IT GOES 

', TO LOCATION 

jSTART A "WRITE" WITH "INT, EN," 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 

J LEVEL 



jKILL A LITTLE TIME 

ILOCK OUT ALL INTERRUPTS 

? INTERRUPT FOR XFER REQ, FAILED 

;POP THE STACK 



TAH BASIC LOGIC TEST {PART 2) HAINDEC-U»DETAB-C 

DZTABCNEW T15 TEST INTERRUPT WITH "TRANSFER REQUEST" 



MACYll 27(732) 
= 1 



1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 



005524 
005526 
005530 
005532 
005540 
005544 
005550 



005554 
005556 
005564 
005572 
005600 
005604 
005612 
005614 
005616 
005620 
005626 
005634 
005642 
005650 
005654 
005660 
005662 
005664 
005666 
005670 
005672 
005676 
005700 
005702 
005704 
005712 
005714 
005716 
005720 
005722 
005724 
005726 
005734 
005740 
005744 



005750 
005752 
005760 
005766 
005774 
005776 
006000 
006004 



104006 
022626 
000005 
013777 
005077 
005037 
005037 



000004 
012767 
012767 
012767 
012701 
012737 



001220 
173454 



010314 
104412 
012777 
012777 
012737 
012737 
112714 
032714 
001404 
005327 



001372 
104001 
005037 



006301 
001376 
012737 
000404 
022626 
104006 
022626 
104006 
000005 
013777 
005077 
005037 
005037 



000001 
005724 
005724 
000001 
000340 



005714 
000340 
000137 
005720 
000117 
000240 



012767 000012 
012767 006014 
012767 006222 



2$: 

3S! 



;»TEST 
• ;*«■*» 
TST16! 



173402 
173376 
000064 



173370 
173364 



000340 177776 



001220 
173260 
000000 
000002 



ERROR 

CMP 

RESET 

MOV 

CLR 

CLR 

CLR 



(SP)+,(SP)+ 
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; INTERRUPT WENT TO LOCATION 

;POP STACK 

yCLEAR ALL 

;SET TRAP CATCHER 



9#TAVEC*2,0TAVEC 

0TAVEC+2 

@#0 

9#2 

16 TEST INTERRUPT WITH "READY" = AND "XFER REQ« s i 
nf »*»«»«•«»»»»*»*»##*»■»*«•»»»■»»«»*■»»■»•»*««»»»»»»*■»»■»■»««• •»**«•■»«■« 
SCOPE 

?;D0 1 ITERATION 
jjESCAPE TO 5$ ON ERROR 



MOV 

MOV 

MOV 

MOV 

MOV 

RESET 

MOV 

WAITREADY 

MOV 

MOV 

MOV 

MOV 

MOVE 



#1,$TIMES 

»5S,SE5CAPE 

»5S,38 

OlfRl 

$340,@#PS 

DRIVE, ©TAGS 



2$: 

6$: 



7SS 
5S: 



;*TEST 
• • «««$ 
TST17J 



173206 
173120 
173174 



010314 
112714 

104412 



BIT 
BEQ 
DEC 


BNE 
ERROR 
CLR 
CLR 
ASL 
BNE 
MOV 
BR 
CMP 
ERROR 
CMP 
ERROR 
RESET 
MOV 
CLR 
CLR 
CLR 
t ■»■»■» «■»«■»*» 
17 

SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV 

MOVE 

WAITREAD 



i4S,gTAVEC 

8 340,?TAVEC'5-2 

1137, P#0 

»7S,i#2 

»REWINDiINT„ENJGO»PTACS 

l!TR,REQiREADY,§TACS 

2S 

(PC) + 

IS 
1 

9nps 

R0 

Rl 

6S 

#340,®»PS 

5S 

(SP)*,(SP)+ 

6 

(SP)+,(SP)* 



jLOCK OUT THE WORLD 
fCLEAR THE WORLD 
ySELECT DRIVE 

jGO WAIT FOR "READY" TO SET 
jRETURN IF INTERRUPT OCCURS 
?LEVEL "7" IF INTERRUPT 
jCATCH INTERRUPT IF IT GOES TO 
; LOCATION 

jGIVE READY TIME TO CLEAR 



;READY OR XFER REQ = "1" 

f ALLOW INTERRUPT 

?AT LEVEL 

jGIVE INTERRUPT TIME TO COME IN 

ILOCK OUT INTERRUPT 
jEXIT WITH NO ERRORS 
.•POP STACK 
; INTERRUPT OCCURRED 
;POP THE STACK 

6 ;INTERRUPTTED TO LOCATION 

jCLEAR THE WORLD 

i#TAVEC+2riTAVEC ?SET TRAP CATCHER 

9TAVEC+2 

@»0 

§»2 

TEST INTERRUPT WITH "XFER REQ" = 1 & "TIMING ERROR" = 1 

#10.,$TIMES IJDO 10. ITERATIONS 
S1$,$LPADR ;;SET SCOPE LOOP ADDRESS 
#11$,SESCAPE ; {ESCAPE TO 11$ ON ERROR 

jCLEAR ALL 
DRIVE, @TACS jSELECT DRIVE 

#REWIND|G0,9TACS jGO TO "BOT" 
Y ;WAIT ON READY 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C MACYU 27(732) 11-JUN»76 

DZTABC.NEW T17 TEST INTERRUPT WITH "XFER REQ" = 1 & "TIMING ERROR" = 1 
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1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 



006006 
006012 
006014 
006016 
006022 
006024 
006030 
006032 
006034 
006036 
006040 
006044 
006046 
006050 
006052 
006054 
006056 
006062 
006064 
006066 



112714 
104412 
010314 
112714 
104413 
112715 
005000 
005001 
105714 
100405 
062700 
005501 
100372 
104001 
105714 
100005 
162700 
005601 
100372 
000401 



006070 104001 



006072 
006100 
006106 
006114 
006122 
006126 
006132 
006134 
006140 
006142 
006144 
006152 

006154 
006156 

006160 
006162 
006164 
006166 
006174 
006200 
006204 
006206 
006210 
006216 

006220 
006222 
006224 
006232 
006236 
006242 



012777 
012777 
012737 
012737 
012701 
005037 
005000 
052714 
006301 
001376 
012737 
104006 

022626 
104006 



022626 

105715 

104412 

012777 

012701 

005037 

006301 

001376 

012737 000340 

1 



173116 
173112 



006160 
000340 
000137 
006154 
000001 
177776 

000100 



000340 177776 



4s: 
5$: 



006220 
000001 
177776 



022626 



012777 
005077 
005037 
005037 



001220 
172762 



I0s: 
Ills 



MOVB 


#WFG{GO,fTACS 


WAITREADY 


MOV 


DRIVE, §TACS 


MOVB 


SWRITEiG0,gTAC5 


WAITXFEP 


MOVB 


8377,?TADB 


CLR 


R0 


CLR 


Rl 


TSTB 


iTACS 


BMI 


38 


ADD 


#10, R0 


ADC 


Rl 


BPL 


2S 


ERROR 


1 


TSTB 


§TACS 


BPL 


4$ 


SUB 


81,R0 


SBC 


Rl 


BPL 


3$ 


BR 


5S 


ERROR 


i 


MOV 


»8S,@TAVEC 


MOV 


1340, ?TAVEC 4-2 


MOV 


#137, 9»0 


MOV 


S78,@82 


MOV 


#1,R1 


CLR 


@#PS 


CLR 


R0 


BIS 


#INT»EN,@TACS 


ASL 


Rl 


BNE 


68 


MOV 


#340,9»PS 


ERROR 


6 


CMP 


(SP)*,CSP)* 


ERROR 


6 



CMP (SP)-6>,(SP)* 
TSTB STADB 
WAITREADY 



MOV 
MOV 
CLR 
ASL 
BNE 
MOV 
ERROR 



#10S,0fAVEC 

»l,Rl 

§#PS 

Rl 

9S 

9340, @#PS 

6 



CMP (SP)*,(SP)4- 

RESET 

MOV «TAVEC<-2,?TAVEC 

CLR ITAVEC-J-a 

CLR @#0 

CLR $92 



iGET ON OXIDE 

JSELECT DRIVE 

JSTART A WRITE 

jWAIT ON "TRANSFER REQUEST" 

; WRITE A BYTE 

jZERO THE COUNTER 

jCHECK "XFER REQ« 

|BP IF SET 

;FIND OUT HOW LONG IT TAKES 

jFOR "XFER REQ" TO SET 

;"XFER REG" DIDN'T SET 

jCHECK "XFER REQ" IF IT IS = 

fSOMETHING IS WRONG 

;DOWN COUNT THE COUNTER 

jSO A "TIMING ERROR" WILL OCCUR 



I "XFER REQ" CLEARED 

JSETUP INTERRRUPT RETURN 
^PRIORITY "7" ON INTERRUPT 
?CATCH INTERRUPT IF IT GOES 
: TO LOCATION 
•SETUP TO WASTE SOME TIME 
fALLOW INTERRUPTS 
;AT LEVEL "0" 

?TURN ON "INTERRUPT ENABLE" 
?GIVE INTERRUPT TIME TO OCCUR 

?LOCK OUT INTERRUPTS 

JFAILED TO INTERRUPT WITH "XFER REQ" s 1 

•POP THE STACK 

; INTERRUPT WENT TO LOCATION 

I POP THE STACK 

jKNOCK DOWN "XFER REQ" 

JWAIT ON "READY" CAUSED BY "TIMING ERROR" 

jSETUP INTERRUPT RETURN 

ISETUP TO WASTE TIME 

lALLOW INTERRUPTS 

jGIVE INTERRUPTS TIME TO OCCUR 

?LOCK OUT INTERRUPTS 

I "INTERRUPT FAILED TO OCCUR FOR READY 

yPOP THE STACK 

;CLEAR ALL 

{RESTORE THE TRAP CATCHER 



fAU BASIC LOGIC TEST (PART 2) MAINDEC-l i-DZTAB«C 
DZTABC.NEW »«#»»»«»«»SPACING FUNCTIONS*«*«-* 
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1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 



006246 
006250 
006256 
006264 
006272 
006274 
006276 
006302 
006304 
006310 
006312 
006316 
006320 
006324 
006326 
006332 
006334 
006340 
006342 
006346 
006350 
006352 
006354 
006356 
006360 
006364 
006366 



006370 
006372 
006400 
006406 
006414 
006416 
006420 
006424 
006426 
006432 
006434 
006440 
006442 
006446 
006450 
006454 
006456 
006462 
006464 



012767 
012767 
012767 
000005 
010314 
112714 
104412 
112714 
104412 
112714 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
032714 
001001 
104001 
005714 
100001 
104001 
032714 
001401 
104001 



>4 

012767 
012767 
012767 



000012 
006274 
006370 



000017 
000001 
000003 
000377 
000020 



010314 
112714 
104412 
112714 
104412 
U2714 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
112714 



172710 
172622 
172676 



u//////un// /n/ / f// u/f/f// /u/// //////// nn /uuf n u f/u// /n u/ 

THE FOLLOWING TEST APE USED TO CHECK THE BASIC OPERATION OF THE SPACING FUNCTIONS 

4tEST 20 TEST "BACK SPACE FILE GAP" 

TST20! SCOPE 

#10.rSTIME5 ?jDO 10, ITERATIONS 

#3S#SLPADR ;;SET SCOPE LOOP ADDRESS 

#TST21f SESCAPE ;;ESCAPE TO TEST 21 ON ERROR 



000005 
006464 
006510 



000017 

000001 

000003 
000377 
000020 
000001 
000017 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVE 



3SS MOV DRIVE, @TACS 

#REWINDiGO,(aTACS 
WAITREADY 

MOVB #WFGIG0,9TACS 
WAITREADY 

MOVB #WRITEIG0^@TACS 
WAITXFER 

MOVB «377,@TADB 
WAITXFER 

BIS #ILBS,?TACS 
WAITREADY 

MOVB tBSFGJGO,?TACS 
WAITREADY 

BIT »FGAP,gTACS 
BNE IS 
ERROR 
TST 
BPL 
ERROR 
I BIT 

BEO TST2i |;BR IF 

ERROR 



PTACS 

2S 

1 

»LEADER,gTACS 

TST2i 



SELECT DRIVE 

POSITION TAPE ON CLEaR LEADER 
GO WAIT FOR "READY" .'0 SET 
WRITE A FILE GAP OFF OF CLEAR LEADER 
GO WAIT FOR "READY TO SET 
PUT A DATA BLOCK Oh THE TAPE 
GO WAIT ON "TRANSFER REQUEST" TO Sfc-i 
KNOCK DOWN XFER REG 

GO WAIT ON "TRANSFER REQUEST" TO SET 
WRITE "CRC" 

GO WAIT FOR "READY" TO SET 
BACK UP OVER THE DATA 
GO WAIT FOR "READY" TO SET 
CHECK fOR FILE GAP 
BR IF "FILE GAP" =1 
ERRvR--KO r-LE GAP INDICATION 
IS "ERROR" =1? 
BR IF NO 
"ERROR" =1 

IS "CLEAR LEADER" =1? 
NO 
"WFG" OR "BSFG" FAILED 



172566 
172500 
172554 



*TEST 21 TEST "SPACE FORWARD FILE GAP" FUNCTION 

TST21: SCOPE 

#5,STIMES fjDO 5 ITERATIONS 

#1S»SLPAUR f;SEf SCOPE LOOP ADDRESS 

#TST22,$ESCAPE jjESCAPE TO TEST 22 ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



DRIVE, iTACS 
#REWIND»GO,PTACS 

WAITREADY 

MOVB #WFGJG0,§TACS 

WAITREADY 

MOVB #WRITEJG0,§TACS 

WAITXFER 

MOVB #377,PTADB 

WAITXFER 

BIS SiLBSjOTACS 

WAITREADY 

MOVB #WFGIGO,@TACS 

WAITREADY 

MOVB #REWINDSGO,PTACS 



; SELECT A DRIVE 

fPOSITION THE TAPE 

jGO WAIT FOR "READY" TO SET 

•WRITE FILE GAP OFF OF CLEAR LEADER 

•GO WAIT FOR "READY" TO SET 

jPUT SOME DATA ON THE TAPE 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 

jKNOCK DOWN XFER REQ 

•GO WAIT ON "TRANSFER REQUEST" TO SET 

•WRITE CRC AND SHUT DOWN 

;G0 WAIT FOR "READY" TO SET 

•WRITE File gap after the record 

jGO WAIT FOR "READY" TO SET 
JREPOSITION THE TAPE 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 ! "DZTAB-C 
DZTABC.NEW T21 TEST "SPACE FORWARD FILE GAP" 
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FUNCTION 



1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 



006470 
006472 
006476 



104412 
112714 
104412 



006500 032714 
006504 001001 



006510 
006512 
006520 
006526 
006534 
006536 
006540 
006544 
006546 
006552 
006554 
006560 
006562 
006566 
006570 
006574 
006576 
006602 
006604 



006612 
006616 
006620 



006622 
006624 
006632 
006640 
006646 
006650 
006652 
006656 
006660 
006664 
006666 
006672 
006674 



006702 
006706 
006710 
006714 
006716 
006722 



000004 
012767 
012767 
012767 
000005 
010314 
112714 
104412 
112714 
104412 
112714 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
005714 
100001 
104001 
032714 
001401 
104001 



000004 
012767 
012767 
012767 



000013 
004000 



000005 
006536 
006622 



000017 
000001 



000377 
000020 
000011 



010314 
112714 
104412 
112714 
104412 
112714 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
112714 
104412 



WAITREADY 

MOVB #SFFGiG0,3TACS 

WAITREADY 

BIT »FGAP,PTACS 

BNE TST22 

ERROR 1 



?BR 



;G0 WAIT FOR "READY" TO SET 
jSPACE OVER THE RECORD 
•GO WAIT FOR "READY" TO SET 
jSETTING IN A FILE GAP? 
IF YES 

;N0 FILE GAP INDICATION 



172446 
172360 
172434 



006716 
006742 



000017 
000001 
000003 
000377 
000020 
000001 
000017 



172334 
172246 
172322 



*TEST 22 TEST "BACK SPACE BLOCK GAP" 

TST22: SCOPE 

;D0 5 ITERATIONS 

•SET SCOPE LOOP ADDRESS 

jESCAPE TO TEST 23 ON ERROR 

jSELECT DRIVE 
;G0 TO CLEAR LEADER 
;G0 WAIT FOR "READY" fO SET 
jWRITE A FILE GAP 
;G0 WAIT FOR "READY" TO SET 
•WRITE A BLOCK OF DATA 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 
fWRITE ONE BYTE 

jGO WAIT ON "TRANSFER REQUEST" TO SET 
• WRITE "CRC " 

JgO wait FOR "READY" TO SET 
;BACK OVER THE DATA 
;G0 wait for "READY" TO SET 
•CHECK FOR ERRORS 
;BR IF NONE 
JERROR OCCURRED 
2$S BIT #LEADER,§TACS ;IS CLEAR LEADERsl? 

fiBR IF NO 

;0N CLEAR LEADER 

• #■&#»#*«•»#*■»»**««■■»»»«■»*«»»««■*»*«•*»»*■» •»^***®******«»'»**f*«^********* 
»TEST 23 TEST "SPACE FWD BLOCK GAP" 

J «■■&»»#« #»»»•»•»«»«»««■««•'»«***»«»****»*«■»**»******** ***************** 
TST23I SCOPE 

#5,$TIMES IJDO 5 ITERATIONS 
#1$,SLPADR fjSET SCOPE LOOP ADDRESS 
#TST24,$ESCAPE nESCAPE TO TEST 24 ON ERROR 



MOV 


#5,STIMES 


MOV 


#1$,SLPADR 


MOV 


#TST23,$ESCAPE 


RESET 




MOV 


DRIVE, 9TACS 


MOVB 


#REWINDJGO,@TACS 


WAITREADY 


MOVB 


#WFG1G0,§TACS 


WAITREADY 


MOVB 


»WRITEIGO,&TACS 


WAITXFER 


MOVB 


#377,fTAD8 


WAITXFER 


BIS 


lfILBS,@TACS 


WAITREADY 


MOVB 


#BSBGIGO,iTACS 


WAITREADY 


TST 


gTACS 


BPL 


2S 


ERROR 


1 


BIT 


#LEADER,§TACS 


BEQ 


TST23 


ERROR 


1 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



DRIVE, giTACS 
#REWINDiGO,§TACS 

WAITREADY 

MOVB #WFGSGO,?TACS 

WAITREADY 

MOVB #WRlTEJGO,eTACS 

WAITXFER 

MOVB #377,@TADB 

WAITXFER 

BIS #ILBS,iTACS 

WAITREADY 

MOVB «WFGlGO,iTACS 

WAITREADY 

MOVB #REWINDiGO,fiTACS 

WAITREADY 



J GO TO CLEAR LEADER 

;G0 WAIT FOR "READY" TO SET 

J PUT FILE GAP ON TAPE 

;G0 WAIT FOR "READY" TO SET 

;WRITE ONE BYTE BLOCK 

jGO WAIT ON "TRANSFER REQUEST" 



TO SET 



;G0 WAIT ON "TRANSFER REQUEST" TO SET 

jWRlTE "CRC 

;G0 WAIT FOR "READY" TO SET 

jWRITE A FILE GAP AFTER THE DATA 

jGO WAIT FOR "READY" TO SET 

jGO TO "CLEAR LEADER'' 

;G0 WAIT FOR "READY" TO SET 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-U-DZTAB-C 
DZTABC.NEW T2i TEST "SPACE FWD BLOCK GAP" 
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1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 



006724 
006730 
006732 
006736 
006740 



006742 
006744 
006752 
006760 
006766 
006770 
006772 
006776 
007000 
007004 
007006 
007012 
007014 
007020 
007022 
007026 
007030 
007034 
007036 
007040 
007044 
007046 



007050 
007052 
007060 
007066 
007074 
007076 
007100 
007104 
007106 
007112 
007114 
007120 
007122 
007126 
007130 
007134 
007136 
007142 
007144 



112714 000015 

104412 

032714 124000 

001401 

104001 



012767 
012767 
012767 

000005 

010314 
112714 
104412 
U2714 
104413 
012715 
104413 
052714 
104412 
112714 
104412 
032714 
001001 
104001 
032714 
001401 
104001 



000004 
012767 
012767 
012767 
000005 
010314 
U2714 
104412 
112714 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
112714 
104412 
112714 



000012 
006770 
007050 



000017 
000003 
000377 
000020 
000007 



172214 
172126 
172202 



000012 
007106 
007176 



MOVE #SFBGIGO,@TACS jSEE IF SFBG WILL SPACE OVER THE BLOCK OF DATA 

WAITREADX ;G0 WAIT FOR "READY* TO SET 

BIT #ERROR!LEADERJFGAP,§TACS {"ERROR" SHOULD BE CLEAR 
BEQ TST24 jySO SHOULD "CLEAR LEADER" AND "FILE GAP" 

ERROR 1 ;TAPE IS IN THE WRONG PLACE AFTER A SFBG 

////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS ARE USED TO CHECK THE "FILE GAP" CIRCUITS 
////////////////////////////////////////////////////////////////////// 
;#*«■•»»*»««•»«••»«■»»■»»»*«•»»»«■#«■*«»»«*■»«■#«»»»***»*»*«•»**«■*■»«■«•*»»«■»»*» 
*TESt| 24 TEST AUTOMATIC "WFG" WHEN WRITING OFF OF "CLEAR LEADER" 
• •»»»»!#»»»«■«■«•«•«■«»»««**■»«»«■»»»»*«•«*»*»«•*»««•*«»*»•»*■»»*»«■»»**»»*■»«»» 
TST24I SCOPE 

8l0.,STIMES yjDO 10. ITERATIONS 
«1S,$LPADR j;SET SCOPE LOOP ADDRESS 
#TST25f SESCAPE |;ESCAPE TO TEST 25 ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVE 



IS! MOV DRIVE#9TACS fSELECT DRIVE 

;G0 TO CLEAR LEADER 
|G0 WAIT FOR "READY" TO SET 
jWRlTE "AUTO, FILE GAP" 
;G0 WAIT ON "TRANSFER REQUEST" 
jWRITE "DATA" 

jGO WAIT ON "TRANSFER REQUEST" 
jWRITE "CRC" 

;G0 WAIT FOR "READY" TO SET 
;BACK OVER THE DATA BLOCK 
;G0 WAIT FOR "READY" TO SET 
fIN FILE GAP? 
jBR IF YES 

jNO FILE GAP INDICATION 
; ERROR SHOULD BE CLEAR 
;S0 SHOULD "CLEAR LEADER" 

jEBROR OP CLEAR LEADER ON A (1) 
I »«■»»*«■»*««.»*«-*»»»*»»»»»»*«■«»«»#■»»»*«■***«• «-«»»*#»»»*»«- «■»«•«•#«■»*«»« 
^TEST 25 TEST "READ" INTO FILE GAP CAUSES AN ERROR 



DRIVE#9TACS 
#REWINDlGO,iaTACS 

WAITREADY 

MOVB #WRITEiGO,§TACS 

WAITXFER 

MOV g377,iaTADB 

WAITXFER 

BIS #ILBS,iTACS 

WAITREADY 

MOVB »BSFGIGO,PTACS 

WAITREADY 



TO SET 
TO SET 



BIT 


#FGAP,PTACS 




BNL 


2S 




ERROR 


1 




BIT 


8ERR0RILEADER 


gTACS 


BEQ 


TST25 


;;s 


ERROR 


1 





172106 
172020 
172074 



SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV 

MOVB ' 



#10.»STIMES 

#1S,SLPADR 

#TST26,$ESCAPE 



DRIVE, gTACS 
IREWIND«G0,PTACS 

WAITREADY 

MOVB I #WPITEIGO,@TACS 

WAITXFER 

MOVB S377feTADB 

WAITXFER 

BIS #ILBS,eTACS 

WAITREADY 

MOVB #WFGSGO,§TACS 

WAITREADY 

MOVB #BSBGiG0,(8TACS 

WAITREADY 

MOVB »SFBG«GO,iaTACS 



;jDO 10, ITERATIONS 

j;SET SCOPE LOOP ADDRESS 

; {ESCAPE TO TEST 26 ON ERROR 

jSELECT DRIVE 

;G0 TO BEGINNING OF TAPE 

JWAIT ON "READY" 

;START A WRITE 

;WAIT ON "XFER REQ" 

•WRITE ONE BYTE 

;WAIT ON "XFER REQ« 

jWRlTE "CRC 

jWAlT ON "READY" 

?WRITE A "FILE GAP" 

•WAIT ON "READY" 

JBACK OVER THE DATA 

jWAIT ON "READY" 

; SPACE OVER THE DATA BLOCK 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



DETABC.NEW 



1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 



007150 
007152 
007156 
007160 
007162 
007164 
007166 
007172 
007174 



007176 
0*57200 
007206 
007214 
007222 
007224 
007226 
007232 
007234 
007240 
007242 
007246 
007250 
007254 
007256 
007262 
007264 
007270 
007272 
007276 
007300 
007304 
007306 
007310 
007312 
007314 
007320 
007322 



007324 
007326 
007334 
007342 
007350 
007352 
007354 
007356 
007362 
007364 
007370 
007372 
007376 



T25 

104412 
112714 
104412 
005714 
100401 
104001 
03: 714 
00;. 001 

10«!00l 



000004 

01.76 7 
0n;767 
01 i 767 
00f?005 
010314 
1U714 
104412 
112714 
104413 
11*715 
104413 
05X714 
104412 
112714 
104412 
112714 
104412 
112714 
104412 
112714 
104412 
005714 
100401 
104001 
032714 
001001 
104001 



000^04 
012767 
012767 
012/67 
000005 
010114 
104U2 
1U?14 
104412 
112714 
104412 
112/14 
104413 



TEST "READ" INTO FILE GAP CAUSES AN ERROR 
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000012 
007234 
007324 



000011 
000013 



000012 
007430 
007574 



WAITREADY 


MOVB 


»READJGO,gTACS 


WAITREADY 


TST 


iTACS 


BMI 


2$ 


ERROR 


1 


BIT 


SFGAP^gTACS 


BNE 


TST26 


ERROR 


1 



171760 
171672 
171746 



171632 
171544 
171620 



jWAIT ON "READY" 
;START A "READ" 
jWAIT ON "READY" 
JDID AN "ERROR" OCCUR? 
;BR IF YES 

jERROR FAILED TO SET 
?IS FILE GAP=1? 
?,'BR IF YES 

jFILE GAP N0T=1 

;»TEST 26 TEST "SFBG" INTO FILE GAP CAUSES AN ERROR 

TST26S SCOPE 

yjDO 10. ITERATIONS 
|?SET SCOPE LOOP ADDRESS 
JJESCAPE TO TEST 27 ON ERROR 

jSELECT DRIVE 

;G0 TO BEGINNING OF TAPE 

JWAIT ON "READY" 

IS! MOVE #WPITE|GO,gTACS jSTART A WRITE 

iWAIT ON "XFER REQ" 

jWRITE ONE BYTE 

JWAIT ON "XFER REQ" 

?WRITE«CRC" 

jWAIT ON "READY" 

JWRITE A "FILE GAP" 

yWAIT ON "READY" 

fBACK OVER THE DATA 

jWAIT ON "READY" 

y SPACE OVER THE DATA BLOCK 

;WAIT ON "READY" 

jSTART A "SFBG" 

jWAIT ON "READY" 

;DID AN "ERROR" OCCUR? 

J BR IF YES 

J ERROR FAILED TO SET 

2SS BIT #FGAP,@TACS |IS FILE GAPsl? 

JBR IF YES 

iFILE GAP N0T=1 

J«TEST 27 TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP3i» 

TST27S SCOPE 

JIDO 10, ITERATIONS 

;|SET SCOPE LOOP ADDRESS 

J f ESCAPE TO TEST 30 ON ERROR 



MOV 


#10,,STIMES 


MOV 


#1$,SLPADR 


MOV 


#TST27,SESCAPE 


RESET 




MOV 


DRIVE, iTACS 


MOVB 


#REWINDIGO,0TACS 


WAITREADY 


MOVE 


#WPITE|GO, iTACS 


WAITXFER 


MOVB 


#377,8TADB 


WAITXFER 


BIS 


aiLBS, iTACS 


WAITREADY 


MOVB 


#WFG»GO,@TACS 


WAITREADY 


MOVB 


^BSBG>GO,gTACS 


WAITREADY 


MOVB 


#SFBGlGOf@TACS 


WAITREADY 


MOVB 


»SFBGSGO,@TACS 


WAITREADY 


TST 


@TACS 


BMI 


2$ 


ERROR 


1 


BIT 


#FGAP,@TACS 


BNE 


TST27 


ERROR 


1 



#10,,$TIMES 

S1$,SLPADR 

»TST30rSESCAPE 



MOV 

MOV 

MOV 

RESET 

MOV DRIVE, gTACS 

WAITREADY 

MOVB SREWINDIGO,?TACS 

WAITREADY 

MOVB #WFGJGOV?TACS 

WAITREADY 

MOVB #WRITE|GO,gTACS 

WAITXFER 



J SELECT DRIVE 

?MAKE SURE READY IS SET 

;G0 TO BEGINNING OF TAPE 

jWAIT ON "READY" 

;GET OFF OF CLEAR LEADER 

?WAIT FOR READY 

I START A WRITE 

jWAIT ON "XFER REQ" 



TAii BftSIC LOGIC TEST (PART 2) MAINDEC"! l^DZTAB-'C MACYli 27(732) 

DZTABC,NEW T27 TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAPsi" 
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1648 


007400 


112715 


000377 




MOVE 


#377,9TADB 


WRITE ONE BYTE 




1649 


007404 


104413 






WAITXFER 


WAIT ON "XFER REQ» 




1650 


007406 


112715 


000377 




MOVB 


#377,§TADB 


WRITE 




1651 


007412 


104413 






WAITXFER 


WAIT ON e»XFER REQ" 




1652 


007414 


052714 


000020 




BIS 


#ILBS,#TACS 


WRITE "CRC 




165J 


007420 


104412 






WAITREADY 


WAIT ON "READY" 




1654 


007422 


112714 


000001 




MOVB 


#WFG|GO,iTACS 


WRITE A -FILE GAP- 




1655 


007426 


104412 






WAITREADY 


WAIT ON "READY" 




1656 


007430 


112714 


000017 


ISS 


MOVB 


#REWINDIGO,?TACS 


BACK OVER THE DATA 




1657 


007434 


104412 






WAITREADY 


WAIT ON "READY'' 




1658 


007436 


112714 


000013 




MOVB 


#SFFG|GO,fTACS 


DO A SPACE FWD FILE GAP 


1659 


007442 


104412 






WAITREADY 






1660 


007444 


032714 


004000 




BIT 


#FGAP,@fACS 


IS FILE GAP=ll 




1661 


007450 


001001 






BNE 


2§ 


BR IF YES 




1662 


007452 


104001 






ERROR 


I 


FILE GAP NOT=l 




1663 








;NOW 


CHECK "ERROR" BIT FOR ALL FUNCTIONS 






1664 


007454 


112714 


000000 


2S! 


MOVB 


#WFG,iTACS 


CHECK "ERROR" WITH 


«WFG« 


1665 


007460 


005714 






TST 


@TACS 


SAMPLE THE "ERROR" 


BIT 


1666 


007462 


100001 






BPL 


3$ 


BR IF "ERRORS = 




1667 


007464 


104001 






ERROR 


1 


"ERROR" NOT = 




1668 


007466 


112714 


000002 


3S5 


MOVB 


#WRITE#§TACS 


CHECK "ERROR" WITH 


*'WRITE" 


1669 


007472 


005714 






TST 


@TACS 


SAMPLE THE "ERROR" 


BIT 


1670 


007474 


100001 






BPL 


4S 


BR IF "ERROR" = 




1671 


007476 


104001 






ERROR 


1 


"ERROR" NOT = 




1672 


007500 


112714 


000004 


4S: 


MOVB 


#READ,§TACS 


CHECK "ERROR" WITH 


"READ" 


1673 


007504 


005714 






TST 


@TACS 


SAMPLE THE "ERROR" 


BIT 


1674 


007506 


100401 






BMI 


5S 


BR IF "ERROR" = 1 




1675 


007510 


104001 






ERROR 


1 


"ERROR« NOT = 1 




1676 


007512 


112714 


000006 


5S; 


MOVB 


»BSFG,8TACS 


CHECK "ERROR" WITH 


"BSFG" 


1677 


007516 


005714 






TST 


?TACS 


SAMPLE THE "ERROR" 


BIT 


1678 


007520 


100001 






BPL 


6$ 


BR IF "ERROR" = 




1679 


007522 


104001 






ERROR 


1 


"ERROR" NOT = 




1680 


007524 


112714 


000010 


6SS 


MOVB 


»BSBG,eTACS 


CHECK "ERROR" WITH 


«BSBG" 


1681 


007530 


005714 






TST 


iTACS 


SAMPLE THE "ERROR" 


BIT 


1682 


007532 


100001 






BPL 


7S 


BR IF "ERROR" s 




1683 


007534 


104001 






ERROR 


1 


"ERROR" NOT = 




1684 


007536 


112714 


000012 


7SI 


MOVB 


»SFFG, iTACS 


CHECK "ERROR" WITH 


"SFFG" 


1685 


007542 


005714 






ISf 


§TACS 


SAMPLE THE "ERROR" 


BIT 


1686 


007544 


100001 






BPL 


8$ 


BR IF "ERROR" s 




1687 


007546 


104001 






ERROR 


1 


"ERROR" NOT s 




1688 


007550 


112714 


000014 


8$: 


MOVB 


#SFBG, iTACS 


CHECK "ERROR" WITH 


"SFBG" 


1689 


007554 


005714 






TST 


PTACS 


SAMPLE THE "ERRORS 


BIT 


1690 


007556 


100401 






BMI 


9S 


BR IF "ERROR" = 1 




1691 


007560 


104001 






ERROR 


1 


"ERROR" NOT = 1 




1692 


007562 


112714 


000016 


9S! 


MOVB 


#REWIND,PTACS 


CHECK "ERROR" WITH 


"REWIND 


1693 


007566 


005714 






TST 


?TACS 


SAMPLE THE "ERROR" 


BIT 


1694 


007570 


100001 






BPL 


TST30 ;;BR IF 


'ERROR" = 




1695 


007572 


104001 






ERROR 


1 


"ERROR" NOT s 





TAU BASIC LOGIC TEST (PART 2) MAINDEC-l 1 -DETAB-C MACYli 27(732) ll-JUN-76 

DETABC.NEW T27 TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP=1" 
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1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 



007574 
007576 
007604 
007612 
007620 
007622 
007624 
007626 
007632 
007634 
007640 
007642 
007646 
007650 
007654 
007656 
007662 
007664 
007670 
007672 
007676 
007700 
007704 
007706 
007712 
007714 
007720 
007722 
007724 
007730 
007732 
007736 
007740 
007742 
007746 
007750 
007752 
007756 
007760 
007764 
007766 
007770 
007774 
007776 



000012 
007700 

010000 



000004 
012767 
012767 
012767 
000005 
010314 

04412 

12714 000017 

04412 

12714 

04412 

127H 

04413 

12715 

04413 
112715 
104413 
052714 
104412 
112714 
104412 
112714 
104412 
112714 
104412 
032714 
00100! 
104001 
112714 
104412 
032714 
001001 
104001 
032714 
001401 
104001 
112714 
104412 
032714 
001001 
104001 
032714 
001001 
104001 



171362 
171274 
171350 



////////////////////////////////////////////////////////////////////// 

////////////////////////////////////////////////////////////////////// 

THE FOLLOWING TESTS INSURE THAT BACKING INTO "CLEAR LEADER" CAUSES AN ERROR 

////////////////////////////////////////////////////////////////////// 

•««••»*•»*«»»»«■««*»«■»»«■»*»*««•» «»-»'»««#»*»**«'«»*»-»**4»««-»«»» »»»«■«■ ■»««■»* 

»TEST 30 TEST BACK»5PACE»FILE-GAP INTO CLEAR LEADER 
• #«■»#«#»»#»«■#«■»««■»«■»»■»»■»»«»#«■#»#»«»*«■«»«■«■#«»«■»*»»»«■»«»*»»»««•«•»«• «^ 
TST30! SCOPE 

jjDO 10, ITERATIONS 

;;SET SCOPE LOOP ADDRESS 

;? ESCAPE TO TEST 31 ON ERROR 

SELECT DRIVE 
HAKE SURE READY IS SET 
GO TO BEGINNING OF TAPE 
WAIT ON "READY" 
GET OFF OF CLEAR LEADER 
WAIT FOR READY 
START A WRITE 
WAIT ON "XFER REG" 
WRITE ONE BYTE 
WAIT ON "XFER REQ« 
WRITE 

WAIT ON "XFER REQ" 
WRITE "CRC" 
WAIT ON «READY" 
WRITE A "FILE GAP" 
WAIT ON "READY" 
BACK OVER THE DATA 
WAIT ON "READY" 
jDO A SPACE FWD FILE GAP 

IS FILE GAP=i? 
BR IF YES 
FILE GAP NOTsi 

GO TO FIRST FILE GAP ON TAPE 
GO WAIT FOR «READY« TO SET 
IN A FILE GAP? 
BR IF YES 

DIDN'T STOP IN A GAP 
DID WE GET AN ERROR? 
BR IF NO 

AN ERROR OCCURRED 
BACK ONTO THE CLEAR LEADER 
GO WAIT FOR ^READY" TO SET 
CHECK FOR AN ERROR 
BR IF "ERROR« BIT IS SET 
"ERROR" BIT FAILED TO SET 
CHECK FOR CLEAR LEADER 
"CLEAR LEADER" s 1 
•"ERROR" WASN'T DUE TO "CLEAR LEADER" 



MOV 


#10wSTIMES 


MOV 


#1$,$LPADR 


MOV 


#TST3if $ESCAPE 


RESET 




MOV 


DRIVE, iTACS 


WAITREADY 


MOVB 


gREWINDlGO, iTACS 


WAITREADY 


MOVB 


#WFGiGO,PTACS 


WAITREADY 


MOVB 


«WRITElG0,gTAC5 


WAITXFER 


MOVB 


#377,iTADB 


WAITXFER 


MOVB 


#377,gTADB 


WAITXFER 


BIS 


#ILBS»iTACS 


WAITREADY 


MOVB 


tWFGIGO, iTACS 


WAITREADY 


MOVB 


IREWIND'GO^eTACS 


WAITREADY 


MOVB 


#SFFG»GO,PTACS 


WAITREADY 


BIT 


#FGAP,?TACS 


BNE 


2$ 


ERROR 


I 


MOVB 


|BSFGfGO,gTACS 


WAITREADY 


BIT 


SFGAP,§TACS 


BNE 


3$ 


ERROR 


1 


BIT 


#ERROR,§TACS 


BEQ 


4$ 


ERROR 


1 


MOVB 


#BSFGiGO,@TACS 


WAITREADY 


BIT 


#ERROR» iTACS 


BNE 


5$ 


ERROR 


1 


BIT 


#LEADER, iTACS 


BNE 


TST31 


ERROR 


i 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-ll-DETAB-C MACYll 27(732) 

DZTABC.NEW T31 TEST BACK-SPACE-BLOCK-GAP INTO CLEAR LEADER 
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1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 



j*TEST 31 TEST BACK-SPACE"BLOCK-GAP INTO CLEAR LEADER 



010000 

010002 
010010 
010016 
010024 
010026 
010030 
010032 
010036 
010040 
010044 
010046 
0100S2 
010054 
010060 
010062 
010066 
010070 
010074 
010076 
010102 
010104 
010110 
010112 
010116 
010120 
010124 
010126 
010130 
010134 
010136 
010142 
010144 
010146 
010152 
010154 
010156 
010160 
010162 
010166 
010170 



000004 
012767 
012767 
012767 
000005 
010314 
104412 
U2714 
104412 
112714 
104412 
112714 
104413 
112715 
104413 
112715 
104413 
052714 
104412 
112714 
104412 
112714 
1^4412 
112714 
104412 
032714 

001001 

104001 
112714 
104412 
032714 
001401 
104001 
112714 
104412 
005714 
10040! 
104001 
032714 

001001 
104001 



000012 
010104 
010172 



000017 
'1 
i3 

000377 
000377 
000020 
000001 
000017 



171156 
171070 
171144 



3SS 



»10,,$TIMES 

»iS»SLPADR 

»TST32»SESCAPE 



SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV DRIVE, iTACS 

WAITREADY 

MOVB #REWIND'GO,?TACS 

WAITREADY 

MOVB SWFG«GO,@TACS 

WAITREADY 

MOVB #WRITEIGO,gTACS 

WAITXFER 

MOVB 8377,3TADB 

WAITXFER 

MOVB #377,9TADB 

WAITXFER 

BIS #ILBS,@TACS 

WAITREADY 

MOVB #WFGJG0,?TACS 

WAITREADY 

MOVB »REWINDIGO,@TACS 

WAITREADY 

MOVB #SFFG1G0,§TACS 

WAITREADY 

BIT #FGAP, iTACS 

BNE 2S 

ERROR 1 

MOVB #BSBG!GO,#TACS 

WAITREADY 

BIT #ERROR|FGAPJLEADER,PTACS 

BEO 3$ 

ERROR i 

MOVB #BSBGSG0,(8TACS 

WAITREADY 

TST 

BMI 

ERROR 

BIT 

BNE 

ERROR 



;?D0 10. ITERATIONS 
?;SET SCOPE LOOP ADDRESS 
;;ESCAPE TO TEST 32 ON ERROR 



SELECT DRIVE 

MAKE SURE READY IS SET 

GO TO BEGINNING OF TAPE 

WAIT ON "READY" 

GET OFF OF CLEAR LEADER 

WAIT FOR READY 

START A WRITE 

WAIT ON "XFER REQ" 

WRITE ONE BYTE 

WAIT ON "XFER REO" 

WRITE 

WAIT ON "XFER REO« 

WRITE "CRC 

WAIT ON "READY" 

WRITE A "FILE GAP" 

WAIT ON "READY" 

BACK OVER THE DATA 

WAIT ON "READY" 

DO A SPACE FWD FILE GAP 

}IS FILE GAP=i? 
BR IF YES 
FILE GAP NOTsl 

GO TO FIRST FILE GAP ON TAPE 
GO WAIT FOR "READY" TO SET 

;DID WE GET ANY ERROR? 
BR IF NO 

AN ERROR OCCURRED 
BSBG WHILE IN A FILE GAP 
GO WAIT FOR "READY" TO SET 
"ERROR" BIT SHOULD BE SET 
BR IF IT IS 

"ERROR" BIT WASN'T SET 
"CLEAR LEADER" SHOULD BE SET 
CLEAR LEADER" = 1 
"CLEAR LEADER" NOT SET 



JJ"BR IF 



010172 000004 

010174 012767 000012 

010202 012767 010230 

010210 012767 010330 

010216 k>00005 



170764 
170676 
170752 



&TACS 
4$ 
1 
4$! BIT #LEADER,9TACS 
TST32 
i 

////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS INSURE THAT DATA CAN BE WRITING ONTO AND READ FROM THE TAPE 
////////////////////////////////////////////////////////////////////// 
; »»*»«•«••»»«•»»««•»«*•»«»»»»«•»«»•»*#«•»»■»»»*»«*■»#»«.*»»»»»»*«»»■»■»•»«•*««•»« 
»TEST 32 TEST "WRITE" 377 & "READ" 377 & 

;«•»*«*»****•»»»»»»»■»•»»»#« »«.SHt «•»«■■»■»»«.»»■»«»*»««■»■»*»»#»» *«■»§»««■»##«.* 
TST32! SCOPE 

MOV #10,,STIMES ;jDO 10. ITERATIONS 

MOV #3$#SLPADR ;jSET SCOPE LOOP ADDRESS 

MOV #TST33,SESCAPE ;;ESCAPE TO TEST 33 ON ERROR 

RESET 



TAU BASIC LOGIC TEST (PART 2) MAlNDEC-i 1 «>DZTAB-.C 
DZTABC.NEW T32 TEST "WRITE" 377 & "READ" 377 & 
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1803 


010220 


010314 




1804 


010222 


112714 


000017 


1805 


010226 


104412 




1806 


010230 


112714 


000003 


1807 


010234 


104413 




1808 


010236 


112715 


000377 


1809 


010242 


104413 




1810 


010244 


112715 


000000 


1811 


010250 


104413 




1812 


010252 


052714 


000020 


1813 


010256 


104412 




1814 


010260 


112714 


0000U 


1815 


010264 


104412 




1816 


010266 


112714 


000005 


1817 


010272 


104413 




1818 


010274 


011501 




1819 


010276 


012700 


000377 


1820 


010302 


020100 




1821 


010304 


001401 




1822 


010306 


104005 




1823 


010310 


104413 




1824 


010312 


005000 




1825 


010314 


011501 




1826 


010316 


001401 




1827 


010320 


104005 




1828 


010322 


052714 


000020 


1829 


010326 


104412 




1830 








1831 








1832 








1833 


010330 


000004 




1834 


010332 


012767 


000012 170626 


1835 


010340 


012767 


010442 170540 


1836 


010346 


012767 


010516 170614 


1837 


010354 


000005 




1838 


010356 


010314 




1839 


010360 


112714 


000017 


1840 


010364 


104412 




1841 


010366 


112714 


000001 


1842 


010372 


104412 




1843 


010374 


012700 


000377 


1844 


010400 


112714 


000003 


1845 


010404 


104413 




1846 


010406 


010015 




1847 


010410 


104413 




1848 


010412 


011501 




1849 


010414 


020001 




1850 


010416 


001401 




1851 


010420 


104005 




1852 


010422 


005300 




1853 


010424 


002370 




1854 


010426 


052714 


000020 


1855 


010432 


104412 




1856 


010434 


005714 




1857 


010436 


100001 




1858 


010440 


104001 





MOV DRIVE, #TACS 

MOVB #REWlND!GO,@iTACS 

WAITREADY 

MOVB #WRITEJGO,eTACS 

WAITXFER 

MOVB #377,9TADB 

WAITXFER 

MOVB #0,iTADB 

WAITXFER 

BIS #ILBS,gTACS 

WAITREADY 

MOVB SBSBG1G0,9TACS 

WAITREADY 

MOVB #READiGO,PTACS 

WAITXFER 



MOV 


gTADB,Rl 


MOV 


#377, R0 


CMP 


R1,R0 


BEQ 


1$ 


ERROR 


5 


WAITXFER 


CLR 


R0 


MOV 


?TADB,Rl 


BEO 


2S 


ERROR 


5 


BIS 


tILBS,?T 



2SI 

WAITREADY 

;«TEST 33 TEST "WRITE & READ 

J J «»*«-«»»45>« »»«»##»■»## »«■»»#§»«*#»*«. 

TST33I SCOPE 

MOV S10„,$TIMES 

HOV g3$,$LPADR ;; 

MOV STST34,SESCAPE 

RESET 



MOV 


DRIVE, @TACS 


MOVB 


#REWINDJGO,gTACS 


WAITREADY 


MOVB 


#WFG|GO,?TACS 


WAITREADY 


MOV 


#377, R0 


MOVB 


»WRITE|GO,®TACS 


WAITXFER 


MOV 


R0,@TADB 


WAITXFER 


MOV 


@TADB,Ri 


CMP 


R0,R| 


BEO 


2$ 


ERROR 


5 


DEC 


R0 


BGE 


iS 


BIS 


#ILBS,?fACS 


WAITREADY 


TST 


iTACS 


BPL 
ERROR 


3$ 
1 



;SELECT DRIVE 

;G0 TO "CLEAR LEADER" 

jWAIT ON "READX" 

fWRlTE DATA 

;WAIT ON "XFER REQ" 

•IST BYTE 

;WAIT ON "XFER REQ" 

j2ND BYTE 

yWAlT ON "XFER REQ« 

yWRlTE "CRC" 

JWAIT ON "READY" 

;BACK OVER THE DATA 

jWAIT ON "READY" 

jSTART A "READ" 

yWAIT ON "XFER REQ" 

?PUT THIS BYTE IN Rl 

yPUT WHAT IT SHOULD BE IN R0 

;D1D DATA READ GOOD? 

?BR IF YES 

JDATA WASN'T = 377 

JWAIT ON "XFER" 

jREAD 

jBR IF DATA s 000 

iDATA WASN'T s 000 

fSHUT DOWN 

yWAIT ON «READY" 

A COUNT PATTERN 

DO 10s ITERATIONS 

SET SCOPE LOOP ADDRESS 

ESCAPE TO TEST 34 ON ERROR 

;CLEAR ALL 

jSELECT DRIVE 

•GO TO "BOT" 

?WAIT ON "READY" TO SET 

;GET ON OXIDE 

jWAIT ON "READY" TO SET 

JFIRST DATA PATTERN AND COUNTER 

ySTART A WRITE 

J WAIT ON "XFER REQ" TO SET 

I WRITE A BYTE ON TAPE 

;WAIT ON "XFER REQ'» TO SET 

iGET BACK THE LAST BYTE WRITTEN 

t AND CHECK IT 

jBR IF IT LOOKS GOOD 

;THE DATA IN TADB WAS BAD 

INEXT PATTERN 

;BR IF MORE TO DO 

;WRITE THE "CRC 

jWAIT ON "READY" TO SET 

I ANY ERRORS OCCUR? 

?BR IF NO 

? ERROR OCCURRED DURING WRITE 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 
DZTABC.NEW T33 TEST "WRITE & READ" A COUNT PATTERN 
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1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 



0442 
0446 
0450 
0454 
0460 
0462 
0464 
0466 
0470 
0472 
0474 
0476 
0500 
0504 
0506 
0512 
0514 



010516 
010520 
010526 
010534 
010542 
010544 
010546 
010552 
010554 
010560 
010562 
010566 
010572 
010574 
010576 
010600 
010604 
010606 
010612 
010614 
010620 
010622 
010626 
010632 
010634 
010636 
010640 
010642 
010644 
010650 
010652 
010654 



112714 
104412 
112714 
012700 
104413 
011501 
020001 
001401 
104005 
005300 
002371 
104413 
052714 
104412 
032714 
001401 
104001 



000004 
012767 
012767 
012767 



000005 
000377 



010314 
112714 
104412 
112714 
104412 
112714 
012700 
104413 
005300 
002403 
112715 
000772 
052714 
104412 
112714 
104412 
112714 
012700 
104413 
005300 
002402 
105715 
000773 
052714 
104412 
005714 
100401 



000012 
010562 
010776 



000017 
000001 



000003 
000006 



000377 

000020 

000011 

000005 
000003 



4S; 



MOVB #BSBGlGO,gTACS 

WAITPEADY 

MOVB SREAD1GO,0TACS 

MOV S377,R0 

WAITXFER 



170440 
170352 
170426 



MOV ?TADB,R1 

CMP R0,R1 

BEQ 5S 

ERROR 5 
5$; DEC R0 

BGE 4S 

WAITXFER 

BIS SlLBSf^TACS 

WAITREADY 

BIT #ERRORICRCERR,gTACS 

BEQ TST34 JjBR I 

ERROR 1 
///////////////////////////////////// 
///////////////////////////////////// 
THE FOLLOWING TESTS ARE USED TO INSUR' 
///////////////////////////////////// 

*TEST 34 TEST "ERROR" WITH "CRC 

TST34! SCOPE 

»10,,STIMES yjDO 1 

#20S,SLPADR JjSET 

»TST35,$ESCAPE ;;ESCA 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



jGO TO BEGINNING OF BLOCK 

fWAIT ON "READY" TO SET 

jSTABT A "READ" 

jFIRST DATA PATTERN AND COUNTER 

jWAIT ON "XFER REQ" TO SET 

jREAD A BYTE FROM TAPE 

;IS IT VALID? 

fBR IF YES 

;BAD DATA READ FROM TAPE 

INEXT PATTERN 

;BR IF MORE TO READ 

yWAIT ON "XFER REQ" TO SET 

;SHUT DOWN THE "READ" OPERATION 

;WAIT ON "READY" TO SET 

jERROR AND CRCERR SHOULD BE = 

THEY ARE 

; (ERROR J CRCERR) = 1 
///////////////////////////////// 
///////////////////////////////// 
E THAT THE "CRC CIRCUITRY FUNCTIONS PROPERLY 
///////////////////////////////// 

ERR" = 1 

ITERATIONS 
SCOPE LOOP ADDRESS 
PE TO TEST 35 ON ERROR 



DRIVE, @TACS 
#REWINDJGO,eTACS 

WAITREADY 

MOVB SWFGJGO,eTACS 

WAITREADY 

MOVB #WRITE|GO,PTACS 

MOV 86»R0 

WAITXFER 

DEC R0 

BLT 2S 

MOVB S377#@TADB 

BR 1$ 

BIS #ILBS,0TACS 

WAITREADY 

MOVB #BSBG|GOr§TACS 

WAITREADY 

MOVB #READiGO,PTACS 

MOV #3rR0 

WAITXFER 



DEC 


R0 


BLT 


4S 


TSTB 


§TADB 


BR 


3S 


BIS 


#ILBS,iTACS 


WAITREADY 


TST 


§TACS 


BMI 


5$ 



SELECT 
GO TO CL 
WAIT ON 
GET OFF 
WAIT FOR 
START A 
SETUP FO 
WAIT ON 
DOWN COU 
DONE? 
NO--WRIT 
LOOP 

WRITE "C 
WAIT ON 
BACK OVE 
WAIT ON 
START A 
DO 3 BYT 
WAIT FOR 
COUNT « 



RIVE 

EAR LEADER 

"READY" 

OF CLEAR LEADER 

READY 
WRITE 
R 6 BYTES 

XFER REQ*' 
NT 

E ON TAPE 

RC" 

"READY" 

R THE DATA BLOCK 

READY" 

READ" 
ES 

XFEP REQ" 
OF BYTES 



CLEAR "XFER REQ" 

DO "ILBS" 
WAIT ON "READY" 
CHECK FOR "ERROR" 
BR IF "ERROR" 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-U »DZTAB»C 
DZTABC.NEW T34 TEST "ERROR" WITH "CRCERR* = 
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1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
i960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 



010656 104001 

010660 032714 

010664 001001 

01066b 104001 



010670 
010674 
010676 
010700 
010702 
010706 
010710 
010712 
010714 
010720 
010722 
010724 
010726 
010732 
010734 
010736 
010740 
010744 
010746 
010750 
010752 
010756 
010760 
010762 
010764 
010770 
010772 
010774 



010776 
0U000 
011006 
011014 
011022 
011024 
0U026 
011032 
011034 
011040 
011042 
011044 
011046 
011050 
011052 
011056 
011060 
011064 
011066 
011072 



112714 
005714 
100001 
104001 
112714 
005714 
100401 
104001 
112714 
005714 
100001 
104001 
112714 
005714 
100001 
104001 
112714 
005714 
100001 
104001 
112714 
005714 
100001 
104001 
112714 
005714 
100001 
104001 



ERROR 1 
5S! BIT SCRCERR»?TACS 

BNE 6S 

ERROR i 
;THE FOLLOWING CODE IS USED TO CHECK THE 
6S5 



MOVB 


#WFG,PTACS 


TST 


gTACS 


BPL 


7$ 


ERROR 


1 


MOVB 


#WRITE#PTACS 


TST 


9TACS 


BMI 


8S 


ERROR 


1 


MOVB 


#BSFG,§TACS 


TST 


iTACS 


BPL 


9S 


ERROR 


1 


MOVB 


#BSBG,9TACS 


TST 


@TACS 


BPL 


10S 


ERROR 


1 


MOVB 


#SFFG,?TACS 


TST 


gTACS 


BPL 


US 


ERROR 


1 


MOVB 


#SFBG,&TACS 


TST 


§TACS 


BPL 


12$ 


ERROR 


1 


MOVB 


#REWIND,gTAC 


TST 


0TACS 


BPL 


TST35 


ERROR 


1 



JBR IF 



"ERROR" BIT NOT SET 
CHECK FOR "CRC ERROR 
BR IF "CRC" ERROR 
NO "CRC" ERROR 
ROM 

CHECK "ERROR" WITH 
SAMPLE THE "ERROR" 
BR IF "ERROR" = 
"ERROR" NOT = 
CHECK "ERROR" WITH 
SAMPLE THE "ERROR" 
BR IF "ERROR" = 1 
"ERROR" NOT = 1 
CHECK "ERROR" WITH 
SAMPLE THE "ERROR" 
BR IF "ERROR" = 
"ERROR" NOT = 
CHECK "ERROR" WITH 
SAMPLE THE "ERROR" 
BR IF "ERROR" = 
"ERROR" NOT = 
CHECK "ERROR" WITH "SFl 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" = 
"ERROR" NOT = 



"WFG" 
BIT 



"WRITE" 

B^T 



»aSFG" 
BIT 



"aSBG" 
BIT 



CHECK "ERROR" WITH 


"SFBG" 


SAMPLE THE "ERROR" 


BIT 


BR IF "ERROR" = 




"ERROR" NOT = 




CHECK "ERROR" WITH 


"REWIND 


SAMPLE THE "ERROR" 


BIT 


ERROR" = 




"ERROR" NOT s 





•*TEST 35 TEST "DATA OF GIVES CRC OF 0" 



»»■»«•«■«««»«■»#*#«■»«•««««•*«*«••»«■»*#*«■*•»■ 



TST35S 



012767 000005 
012767 011034 
012767 011160 



170160 
170072 
170146 



010314 

112714 000017 

104412 

112714 000003 

104413 

105015 

104413 

105015 

104413 

052714 000020 

104412 

112714 000011 

104412 

112714 

104413 



SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



#5,STIMES 
i6$f SLPADR 
#TST36,$ESCAPE 



?jDO 5 ITERATIONS 

fjSET SCOPE LOOP ADDRESS 

??ESCAPE TO TEST 36 ON ERROR 



000005 



DRIVE, 9TACS 
#REWINDiGO,gTACS 

WAITREADY 

MOVB #WRITESGO,§TACS 

WAITXFER 

CLRB iTADB 

WAITXFER 

CLRB iTADB 

WAITXFER 

BIS #ILBS,9TACS 

WAITREADY 

MOVB #BSBGIGO,@TACS 

WAITREADY 

MOVB #READlGO,iTACS 

WAITXFER 



SELECT DRIVE 
GO TO "CLEAR LEADER" 
WAIT ON "READY" 
WRITE THE DATA 
WAIT ON "XFER REQ" 
1ST BYTE = 
WAIT ON "XFER REQ" 
2ND BYTE = 
WAIT ON "XFER REQ" 
WRITE "CRC 
WAIT ON "READY" 
BACK OVER THE DATA 
WAIT ON "READY" 
START A "READ" 
J WAIT ON "XFER REQ« FIRST 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-l 1 -DETAB«-C 
DZTABC.NEW T35 TEST "DATA OF GIVES CRC OF 0" 



1971 


011074 


005000 




1972 


011076 


011501 




1973 


011100 


001401 




1974 


011102 


104005 




1975 


011104 


104413 




1976 


011106 


011501 




1977 


011110 


001401 




1978 


011112 


104005 




1979 


011114 


104413 




1980 


011116 


011501 




1981 


011120 


001401 




1982 


011122 


104005 




1983 


011124 


104413 




1904 


011126 


011501 




1985 


011130 


001401 




1986 


011132 


104005 




1987 


011134 


052714 


000020 


1988 


011140 


104412 




1989 


011142 


005714 




1990 


011144 


100401 




1991 


011146 


104001 




1992 


011150 


032714 


040000 


1993 


011154 


001001 




1994 


011 156 


104001 




1995 








1996 








1997 








1998 


01 1160 


000004 




1999 


011162 


012767 


000012 167776 


2000 


011170 


012767 


011272 167710 


2001 


011176 


0127b7 


011412 167764 


2002 


011204 


000005 




2003 


011206 


010314 




2004 


011210 


U2714 


000017 


2005 


0U214 


104412 




2006 


011216 


112714 


000001 


2007 


011222 


104412 




2008 


011224 


012700 


000377 


2009 


011230 


112714 


000003 


2010 


011234 


104413 




2011 


011236 


010015 




2012 


011240 


104413 




2013 


011242 


011501 




2014 


011244 


020001 




2015 


011246 


001401 




2016 


011250 


104005 




2017 


011252 


005300 




2018 


011254 


002370 




2019 


0U256 


052714 


000020 


2020 


011262 


104412 




2021 


0U264 


005714 




2022 


01 1266 


100001 




2023 


011270 


104001 




2024 


011272 


112714 


000011 


2025 


011276 


104412 




2026 


01 1 300 


112714 


000005 



CLP 


R0 




MOV 


@TADB, 


R! 


BEQ 


IS 




ERROR 


5 




WAITXFER 




MOV 


§TADB| 


Rl 


BEQ 


2S 




ERROR 


5 




WAITXFER 




MOV 


PTADB, 


Rl 


BEQ 


3$ 




ERROR 


5 




WAITXFER 




MOV 


@TADB 


Rl 


BEG 


4$ 




ERROR 


5 




BIS 


#ILBS 


gTACS 


WAITREADY 




TST 


gTACS 




BMI 


5S 




ERROR 


1 




BIT 


(^CRCERp,iTACS 


BNE 


TST36 




ERROR 


1 





;»TEST 36 TEST "CRC CIRC 
TST36J SCOPE 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVE 



DRIVE, OTACS 
»REWIND!G0,8TAC, 

WAITREADY 

MOVB #WFGiGO,eTACS 

WAITREADY 

MOV »377,R0 

MOVB #WRITEiGO,(<iTACS 

WAITXFER 

MOV R0,PTADB 

«AITXFEP 



MOV 


§TADB, 


Rl 


CMP 


R0,R1 




BEQ 


2S 




ERROR 


5 




DEC 


R0 




BGE 


IS 




BIS 


»ILBS, 


§TACS 


WAITREADY 




TST 


§TACS 




BPL 


3S 




ERROR 


1 




MOVB 


«BSBG 


GO,§TACS 


WAITREADY 




MOVB 


#READ 


GO,PTACS 
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;SET R0 TO WHAT THE DATA SHOULD BE 
READ DATA BYTE 
BR IF DATA = 
15T BYTE NOT = 
WAIT ON "XFER REQ" 
READ SECOND DATA BYTE 
BR IF 2ND BYTE s 
DATA WASN'T = 
WAIT ON "XFER REQ" 
READ FIRST CrC BYTE 
BR IF 1ST CRC BYTE = 
iST BYTE OF CRC BAD 
WAIT ON "XFER REQ" 
READ SECOND CRC BYTE 
BR IF 2ND CRC BYTE = 
2ND BYTE OF CRC BAD 

WAIT FOR "READY" 
"ERROR" SHOULD BE = 1 
BR IF "ERROR" IS = 1 

IS THE ERROR A "CRC" ERROR? 
;G0 TO NEXT TEST IF YES 

THE ERROR WASN'T A "CRC" ERROR 

UIT USING A COUNT PATTERN 

;;D0 10. ITERATIONS 
yjSET SCOPE LOOP ADDRESS 

j f escape to test 37 on error 
;Clear All 
:select drive 

[GO TO "BOT" 

;WAIT ON "READY" TO SET 

:GET ON OXIDE 

[WAIT ON "READY" TO SET 

iFIRST DATA PATTERN AND COUNTER 

iSTART A WRITE 

(WAIT ON "XFER REQ« TO SET 

IWRITE A BYTE ON TAPE 

[WAIT ON "XFER REQ" TO SET 

[GET BACK THE LAST BYTE WRITTEN 

AND CHECK IT 
iBR IF IT LOOKS GOOD 
;THE DATA IN TAD6 WAS BAD 
[NEXT PATTERN 
[BR IF MORE TO DO 
[WRITE THE "CRC 

WAIT ON "READY" TO SET 

ANY ERRORS OCCUR? 
[BR IF NO 

[ERROR OCCURRED DURING WRITE 
[BACK OVER THE DATA BLOCK 
iWAIT ON "READY" TO SET 
[START A "READ" 



«10,,$TIMES 

#3SrSLPADR 

#TST37,$ESCAPE 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -D2TAB-C 
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DZTABC.NEW 



2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 



01 1304 
011310 
011 314 
011320 
011322 
011324 
011326 
011330 
011332 
011 334 
011336 
011340 
011344 
011346 
011352 
011354 
011356 
011360 
011362 
011364 
011370 
011372 
011374 
011376 
011400 
011402 
011406 
011410 



T36 

012700 
005037 
004737 
104413 
011501 
020001 
001401 
104005 
005300 
002367 
005000 
153700 
104413 
052714 
011501 
020001 
001401 
104005 
005000 
153700 
104412 
011501 
020001 
001401 
104005 
032714 
001401 
104001 



TEST "CRC CIRCUIT USING A COUNT PATTERN 



011412 
011414 
0U422 
011430 
011436 
011442 
011444 
011450 
011452 
011456 
011462 
011464 



000377 
013774 
013654 



000004 
012767 
012767 
012767 
105737 
001443 
012701 
010302 
062702 
042702 
000005 
010314 



000005 
011436 
011552 
001225 

000001 



7$J 



MOV 


#377, R0 


CLR 


ia«CRC,WD 


JSR 


PC^IDO.CRC 


WAITXFER 


MOV 


9TADB,R1 


CMP 


R0,R1 


BEQ 


5S 


ERROR 


5 


DEC 


R0 


BGE 


4S 


CLR 


R0 


BISB 


g#CRC,WD,R0 


WAITXFER 


BIS 


#ILBS»§TACS 


MOV 


PTADB,R1 


CMP 


R0,Ri 


BEQ 


6$ 


ERROR 


5 


CLR 


R0 


BISB 


g#CRC.WD+l, 


WAITREADY 


MOV 


gTADB,Pl 


CMP 


R0,R1 


BEQ 


7S 


ERROR 


5 


BIT 


I5ERR0RKRCE 


BEQ 


TST37 


ERROR 


1 



jfBR IF 

THIS TEST REQUIRES BOTH DRIVES , 

FOR THE FOLLOWING DESCRIPTION DRIVE "1' 

AND DRIVE "2" IS THE OTHER DRIVE 



FIRST DATA PATTERN AND COUNTER 

INITIALIZES THE "CRC WORD" 

COMBINE THIS BYTE CR0j WITH THE "CRC WORD" 

WAIT ON "XFER REQ" TO SET 

READ A BYTE FROM TAPE 

IS IT VALID? 

BR IF YES 

BAD DATA READ FROM TAPE 

NEXT PATTERN 

BR IF MORE TO READ 

GET LOW BYTE OF "CRC WORD" 

WAIT ON "XFER REQ" TO SET 

SHUT DOWN THE "READ" OPERATION 

PICK FIRST BYTE OF TU60 "CRC" 

IS IT GOOD? 

BR IF YES 

FIRST BYTE OF TU60 "CRC IS BAD 

GET HIGH BYTE OF "CRC WORD" 

WAIT ON "READY" TO SET 
READ THE 2ND BYTE OF TU60 "CRC 
IS IT GOOD? 
BR IF YES 

HIGH BYTE OF «CRC IS BAD 
ERROR AND CRCERR SHOULD BE = 
THEY ARE 
(ERROR • CRCERR) = 1 

IS THE DRIVE UNDER TEST 



167544 
167456 
167532 



EST DESCRIPTION 

) REWIND DRIVE 1 

) WAIT FOR READY TO SET 

) START DRIVE 2 REWINDING 

) WAIT FOR READY TO CLEAR 

) SELECT DRIVE 1 AND CHECK THAT READY IS STILL SET 

) SELECT DRIVE 2 AND CHECK THAT READY IS STILL CLEAR 

*TEST 37 TRY TO HANG "READY" ON "REWIND" 

OPE 

;;D0 5 ITERATIONS 
fjSET SCOPE LOOP ADDRESS 
;jESCAPE TO TEST 40 ON ERROR 
jTESTING TWO DRIVES? 
;jBR IF NO 

jSET TIMER 

jSET R2 TO THE OTHER DRIVE 



SCOPE 




MOV 


#5,STIMES 


MOV 


S1$,SLPADR 


MOV 


STST40,$ESCAPE 


TSTB 


9#DRVKEY+1 


BEQ 


TST40 


MOV 


#lrRl 


MOV 


DRIVE, R2 


ADD 


#UNIT,R2 


BIC 


#""CUNIT,R2 


RESET 




MOV 


DRIVE, PTACS 



5CLEAR ALL 
JSELECT iST DRIVE 



TAll BASIC LOGIC TEST CPART 2) HAINDEC"! 1«DETAB«C 
DETABCsNEW T37 TRY TO HANG •'READY" ON »RE5nIND« 
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3083 


0U466 


104412 




2084 


011470 


010214 




2085 


011472 


104412 




2086 


011474 


112714 


000017 


2087 


011500 


006301 


2 


2088 


011502 


001001 




2089 


011504 


104001 




2090 








2091 








2092 








2093 


011506 


032714 


000040 3 


2094 


011512 


001372 




2095 


011514 


010314 




2096 


0U5I6 


112714 


000016 


2097 


011522 


032714 


000040 


2098 


011526 


001001 




2099 


011530 


104001 




2100 


011532 


010214 


4 


2101 


011534 


112714 


000016 


2102 


011540 


032714 


000040 


2103 


011544 


001401 




2104 


011546 


104001 




2105 


011550 


104412 


5 


2106 








2107 








210fi 








2109 








2110 








2111 








2U2 








2113 








2114 








2115 








2116 








2il7 








2118 








2U9 








2120 








2121 








2122 








2123 








2124 


0U552 


000004 


T 


2125 


011554 


012767 


000005 167404 


2126 


0U562 


012767 


011576 167316 


2127 


011570 


012767 


012134 167372 


2128 


011576 


105737 


001225 1 


2129 


011602 


001554 




2130 


011604 


012701 


000001 


2131 


011610 


010302 




2132 


011612 


062702 


000400 


2133 


011616 


042702 


177377 


2134 


0U622 


000005 




2135 


011624 


010314 




2136 


011626 


112714 


000017 


2137 


011632 


104412 




2138 


0! 1634 


U2714 


000001 



WAITREADY 

MOV R2»^TACS 

WAITREADY 

MOVB »REWINDSGO,§TACS 

ASL Rl 

BNE 3S 

ERROR 1 



BIT 

BNE 

MOV 

MOVB 

BIT 

BNE 

ERROR 

MOV 

MOVB 

BIT 

BEQ 

ERROR 



yWAIT ON "READY" 

fSELECT 2ND DRIVE 

;WAIT ON "READY" 

;SEND 2ND DRIVE TO BOT 

;GIVE "READY" TIME TO CLEAR 

"READY" FAILED TO CLEAR 

NOTE! THIS ERROR OCCURRED ON THE 

2ND DRIVE, I»E, IF TESTING DRIVE A 

THEN DRIVE B FAILED 

WAIT FOR "READY" TO CLEAR 



SELECT 
LOAD A 
CHECK 
BR IF 
"READY 
SELECT 
LOAD A 
CHECK 
BR IF 
"READY 
WAIT 



1ST DRIVE 
"REWIND" 
"READY" 
STILL SET 
WAS CLEAR 
2ND DRIVE 
REWIND 
"READY" 
STILL CLEAR 
WAS SET 
"READY" 



»*»«««»»*»»»«# «■#»«»«• •»»»«•«»«* 



1" IS THE DRIVE UNDER TEST 



#READYy@TACS 
2S 

DRIVE»9TACS 
#REWINO,iTACS 
#READY,?TACS 
4$ 
1 

R2,§TACS 
#REWIND,#TACS 
#READY,iTACS 
5$ 
1 
Sj WAITREADY 

THIS TEST REQUIRES BOTH DRIVES , 
FOR THE FOLLOWING DESCRIPTION DRIVE 
AND DRIVE "2" IS THE OTHER DRIVE 

TEST DESCRIPTION 

1) REWIND DRIVE 1 

23 WFG ON DRIVE 1 

3) START A REWIND ON DRIVE 2 

4) WHILE DRIVE 2 IS REWINDING WRITE DATA ON DRIVE 1 

5) CHECK FOR ERRORS 

6) START A REWIND ON DRIVE 2 

7) WHILE DRIVE 2 IS REWINDING READ DATA FROM DRIVE 1 
83 CHECK FOR ERRORS 

*TEST 40 TRY TO GLITCH THE "POWER SUPPLY" 
• **«■»*»•&«»»»»»«■»»»*»*■»*■»•«**«*»»»■»*»«»*»»«*«»*«*«»*«•■»«**«*»*■» 
TST40I SCOPE 

;;U0 5 ITERATIONS 
;jSET SCOPE LOOP ADDRESS 
;;ESCAPE TO TEST 41 ON ERROR 
;TESTING TWO DRIVES? 
J J BR IF NO 

jSET TIMER 

;SET R2 TO THE OTHER 



jCLEAR ALL 
;SELECT 1ST DRIVE 
JREWIND TO BOT 
jWAIT ON "READY" 
;GET ON OXIDE 



MOV 


»5,STIMES 


MOV 


#1S,SLPADR 


MOV 


8TST4l,SESCAPE 


TSTB 


f#DRVKEY+l 


BEO 


TST41 


MOV 


ffURl 


MOV 


DRIVE, R2 


ADD 


#UNIT,R2 


BIC 


#*CUNIT,R2 


RESET 




MOV 


DRIVE, §TACS 


MOVB 


8REWIND!G0,@TACS 


WAITREADY 


MOVB 


»WFG|G0,PTACS 



TAU BASIC LOGIC TEST (PART 23 MAINDEC-U -DZTAB»C 
DZTABC,NEW T40 TRY TO GLITCH THE "POWER SUPPLY" 
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2139 


011640 


104412 




2140 


011642 


010214 




2141 


0II644 


104412 




2142 


011646 


112714 


000017 


2143 


0U652 


006301 




2144 


011654 


001001 




2145 


011656 


104001 




2146 








2147 








2148 








2149 


011660 


032714 


000040 


2150 


011664 


001372 




2151 


011666 


010314 




2152 


011670 


112714 


000003 


2153 


011674 


104413 




2154 


011676 


S12715 


000377 


2155 


011702 


104413 




2156 


011704 


105015 




2157 


011706 


104413 




2158 


011710 


052714 


000020 


2159 


011714 


104412 




2160 


0U716 


005714 




2161 


011720 


100001 




2162 


011722 


104001 




2163 


011724 


112714 


000011 


2164 


011730 


104412 




2165 


011732 


005714 




2166 


011734 


100001 




2167 


011736 


104001 




2168 


011740 


112714 


000005 


2169 


011744 


104413 




2170 


011746 


012700 


000377 


2171 


011752 


011501 




2172 


011754 


020001 




2173 


011756 


001401 




2174 


011760 


104005 




2175 


011762 


104413 




2176 


011764 


005000 




2177 


011766 


011501 




2178 


011770 


001401 




2179 


011772 


104005 




2180 


011774 


104413 




2181 


0U776 


052714 


000020 


2182 


012002 


104412 




2183 


012004 


005714 




2184 


012006 


100001 




2185 


012010 


104001 




2186 


012012 


112714 


000011 


2187 


012016 


104412 




2188 


012020 


005714 




2189 


012022 


100001 




2190 


012024 


104001 




2191 


012026 


010214 




2192 


012030 


104412 




2193 


012032 


112714 


000017 


2194 


012036 


012701 


000001 



WAITREADY 

MOV R2,!aTACS 

WAITREADY 

MOVB »REW1NDIG0,PTACS 

ASL Rl 

BNE 3$ 

ERROR 1 



BIT 
BNE 
MOV 
MOVB 



SPEADY,§TACS 

2S 

DRIVE, iTACS 

#WPITE1G0,PTACS 



WAITXFER 

MOVB #377,eTADB 

WAITXFER 

CLRB gTADB 

WAITXFER 

BIS #ILBS,9TACS 

WAITREADY 

TST §TACS 

BPL 4$ 

ERROR 1 

MOVB SBSBGIGO, iTACS 

WAITREADY 

TST gTACS 

BPL 5$ 

ERROR i 

MOVB #READJGO,PTACS 

WAITXFER 

MOV #377, R0 

MOV ®TADB,R1 

CMP R0,Ri 

BEO 6$ 

ERROR 5 

WAITXFER 

CLH R0 

MOV @TADB,R1 

BEQ 7S 

ERROR 5 

WAITXFER 

BIS #ILBS,§TACS 

WAITREADY 

TST 9TACS 

BPL 8S 

ERROR i 

MOVB #BSBG|GO, iTACS 

WAITREADY 

TST §TACS 

BPL 9$ 

ERROR 1 

MOV R2,§TACS 

WAITREADY 

MOVB #REWINDiGO,fTACS 

MOV Sl^Rl 



JWAIT ON "READY" 

;SELECT 2ND DRIVE 

JWAIT ON "READY" 

JSTART A "REWIND" 

;GIVE "READY" TIME TO CLEAR 

"READY" FAILED TO CLEAR 

NOTEJ THIS ERROR OCCURRED ON THE 

2ND DRIVE. I.E. IF TESTING DRIVE A 

THEN DRIVE B FAILED 

WAIT FOR "READY" TO CLEAR 

SELECT 1ST DRIVE 

WRITE WHILE THE OTHER DRIVE IS "REWINDING" 

WAIT ON "XFER REG" 

WRITE 1ST BYTE 

WAIT ON "XFER REQ" 

WRITE 2ND BYTE 

WAIT ON "XFER REQ" 

WRITE "CRC" & SHUT DO^N 

WAIT ON "READY" 

ANY ERROR? 

BR IF NO 

ERROR OCCURRED DURING "WRITE" 

POSITION TAPE FOR "READ" 

WAIT ON "READY" 

ANY ERROR? 

BR IF NO 

ERROR OCCURRED DURING "BSBG" 

START A "READ" 

WAIT ON "XFER REQ" 

FIRST DATA PATTERN 

PICKUP FIST BYTE 

IS IT GOOD? 

BR IF NO 

1ST DATA BYTE IS BAD 

WAIT ON "XFER REQs 

2ND DATA PATTERN 

PICKUP 2ND BYTE 

BR IF IT IS GOOD 

2ND BYTE IS BAD 

WAIT ON "XFER REQ" 

SHUT DOWN 

WAIT ON "READY" 

ERROR? 

BR IF NO 

ERROR OCCURRED 

POSITION FOR NEXT "READ" 

WAIT ON "READY" 

ERROR? 

BR IF NO 

ERROR OCCURRED DURING "BSBG 

SELECT 2ND DRIVE 

WAIT ON "READY" 
{START A "REWIND" 
ySET THE TIMER 



TAU BASIC LOGIC TEST (PART 2) MAINDEC"! 1-DZTAB-C 
DZTABC.NEW T40 TRY TO GLITCH THE "POWER SUPPLY" 
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2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 



012042 005201 
012044 001001 
012046 104001 



INC 
BNE 
ERROR 



Rl 
11$ 



2050 
2054 
2056 
2060 
2062 
2066 
2070 
2074 
2076 
2100 
2102 
2104 
2106 
2110 
2112 
2114 
2116 
2120 
2124 
2126 
2130 
2132 



012134 
0121 36 
012144 
012146 
012150 
012154 



012156 
012156 
012160 
012164 
012170 
012174 
012202 
012204 
012206 



032714 
001372 
010314 
104412 
112714 
104413 
012700 
0U501 
020001 
001401 
104005 
104413 
005000 
011501 
001401 
104005 
104413 
052714 
104412 
005714 
100001 
104001 



000004 
012767 
000005 
010314 
112714 
104412 



000004 

005067 
005067 
005267 
042767 
005327 
000001 
003015 



US! BIT SREADY,0TACS 

BNE 10$ 

MOV DRIVE#&TACS 

WAITREADY 

MOVB «READ«GO,@TACS 

WAITXFER 

MOV #377, R0 

MOV 3TADB»R1 

CMP R0,RI 

BEQ 12$ 

ERROR 5 
12$! WAITXFER 

CLR R0 

MOV PTADB^Bl 

BEQ 13S 

ERROR 5 
13S! WAITXFER 

BIS SlLBSfPTACS 

WAITREADY 

TST PTACS 

BPL TST41 

ERROR I 
• •«««■»■»««#*»#»#*»»»»*»»«•»«»«•#»»» 
;«TEST 41 END OF TEST CODE 

TST41! SCOPE 



MOV 
RESET 
MOV 
MOVB 



#1,$TIMES 



,S8TTL 



DRIVE, 9TACS 
#REWINDJGO,0TACS 

WAITREADY 

END OF PASS ROUTINE 



jGIVE "READY" TIME TO CLEAR 

J "READY" FAILED TO CLEAR 

fNOTE! THIS ERROR OCCURRED ON THE 

j2ND DRIVE, I,E. IF TESTING DRIVE A 

;THEN DRIVE B FAILED 

?WAIT FOR "READY^ TO CLEAR 

fSELECT 1ST DRIVE 

JWAIT ON "READY" 

J "READ" WHILE OTHER DRIVE IS "REWIND 

yWAIT ON "XFER REQ" 

;1ST DATA PATTERN 

jREAD 1ST BYTE 

;IS IT GOOD? 

;BR IF NO 

•1ST BYTE FAILED 

fWAlT ON "XFER REQ« 

;2ND DATA PATTERN 

5 READ 2ND BYTE 

;BR IF IT IS GOOD 

J 2ND BYTE FAILED 

jWAIT ON "XFER REQ" 

fSHUT DOWN 

JWAIT ON "READY" 

; ERROR? 
!|BR IF NO 

; ERROR OCCURRED 
^ «•««•«•»»■»»»»«■»•» «■»»«*»»•».»«•»»»«•«•■»»»« 

jOO 1 ITERATION 

;SELECT DRIVE 



j*INCREMENT THE PASS NUMBER (SPASS) 

.»TYPE "END PASS" 

;»IF THERES A MONITOR GO TO IT 

;«IF THERE ISN'T JUMP TO START 

?*IF IT IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS" LOCAT 

;»$ENDMG CAN BE CHANGED TO 7. 



SEOP! 



166716 
166776 
166704 
100000 166676 



SCOPE 

CLB 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 



STSTNM 
STIMES 
SPASS 

#100000, SPASS 
(PC)* 

SDOAGN 



?;2EH0 THE TEST NUMBER 

? J ZERO THE NUMBER OF ITERATIONS 

;? INCREMENT THE PASS NUMBER 

JJDON'T ALLOW A NEG, NUMBER 

j;LOOP? 

J I YES 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB»C 
DZTAbC,NEW END OF PASS ROUTINE 
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2251 


012210 


012737 








HOV 


(PC)+,P(PC)+ 


JJRESTOPE COUNTER 


2252 


012212 


000001 






SENDCT! 


,WORD 


1 




2253 


012214 


012204 








SEOPCT 






2254 


012216 


104401 


012251 






TYPE 


, SENDMG 


; J TYPE "END PASS" 


2255 


012222 


013700 


000042 




SGET42! 


MOV 


@#42,R0 


j;GET MONITOR ADDRESS 


2256 


012226 


001405 








BEQ 


SDOAGN 


jjBRANCH IF NO MONITOR 


2257 


012230 


000005 








RESET 




jlCLEAR THE WORLD 


2258 


012232 


004710 






SENDAD; 


JSR 


PC,(R0) 


nGO TO MONITOR 


2259 


012234 


000240 








NOP 




?JSAVE BOOM 


2260 


012236 


000240 








NOP 




;;rOR 


2261 


012240 


000240 








NOP 




JJACTU 


2262 


012242 








SDOAGN! 








2263 


012242 


000137 








JMP 


P(PC)* 


JlRETURN 


2264 


012244 


002220 






SRTNAD! 


,WORD 


START 




2265 


012246 


377 


377 


000 


SENULL! 


,BYTE 


«'1,«1,0 


jjNULL CHARACTER STRIN 


2266 


012251 


015 


042412 


042U6 


SENDMG: 


.ASCIZ 


<15><12>/END 


PASS/ 


2267 


012256 


050040 


051501 


000123 











TAll BASIC LOGIC TEST (PART 2) HAINDEC-i 1-DETAB-C 
DETABCNEW SCOPE HANDLER ROUTINE 
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2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 



012264 
012264 
012266 
012274 



104406 
032777 
001 111 



012276 000416 



012300 
012304 
012312 
012316 
012322 
012324 
U12326 
012332 
012334 
012334 
012342 
012344 
012352 
012354 
012360 
012362 
012370 
012372 
012400 
012402 
012410 
012412 
012416 
012422 
012424 
012432 
012434 
012440 
012442 
012446 
012454 
012456 
012464 
012472 
012476 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127767 
001462 
105767 
001421 
126767 
101015 
032777 
001404 
016767 
000443 
105067 
005067 
000415 
032777 
001011 
005767 
001406 
005267 
026767 
002021 
012767 
016767 
105267 
011667 



012324 
177060 
000004 



000004 

000400 

166570 

166523 

166527 

001000 

166502 

166465 
166544 

004000 

166440 

166436 
166514 

000001 
000044 
166404 
166404 



166576 
166530 

166513 
166540 
166476 



,SBTTL SCOPE HANDLER ROUTINE 

'4tHXS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

'.*AND LOAD THE TEST NUMBER( STSTNM) INTO THE DISPLAY REG . CDISPLAY<7 S 0>) 

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15 : 08> 

j«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE! 

;«SWl4sl LOOP ON TEST 

;*SWll=l INHIBIT ITERATIONS 

;«SW09=1 LOOP ON ERROR 

;*SW08sl LOOP ON TEST IN SWR<7!0> 

j«CALL 

.* SCOPE fjSCOPEsIOT 



SSCOPE: 

CKS WR 
IS: BIT #BlTi4»iaswR 

BNE $OVER 
;#«I!##START OF CODE FOR THE XOR 
SXTSTR! BR 6$ 



5$: 



MOV 

MOV 

TST 

MOV 

BR 

CMP 

MOV 

BR 
6SS ;#»»«»END OF 

BIT 

BEG 

CMPB 

BEQ 
2$5 TSTB 

BEG 

CMPB 

BHI 

BIT 

BEQ 
7$! MOV 

BR 
4SS CLRB 

CLR 



166506 3$: 



166420 
166474 



BR 

BIT 

BNE 

TST 

BEQ 

INC 

CMP 

BGE 

MOV 

MOV 

INCB 

MOV 



;;TEST FOR CHANGE IN SOFT^SWR 

;;LOOP ON PRESENT TEST? 

yjYES IF SW14=i 

TESTEP##### 

;;IF RUNNING ON THE "XOR" TESTER CHANGE 

••THIS INSTRUCTION TO A "NOP" (NOP=240) 
g»ERRVEC,-(SP) ;jSAVE THE CONTENTS OF THE ERROR VECTOR 
#5$,9#ERRVEC ;;SET FOR TIMEOUT 
?#177060 jjTIME OUT ON XOR? 
(SP)+»§«ERRVEC ;;RESTORE THE ERROR VECTOR 
SSVLAD ;;G0 TO THE NEXT TEST 

(SP)4-,(SP)+ ;;CLEAR THE STACK AFTER A TIME OUT 
(SP)-t-,@#ERRVEC jjRESTORE THE ERROR VECTOR 
7$ JJLOOP ON THE PRESENT TEST 

CODE FOR THE XOR TESTER####S 
#BIT08»@SWR ;;LOOP ON SPEC. TEST? 
2S ;}BR IF NO 

@SWR, STSTNM ;jON THE RIGHT TEST? SirfR<7!0> 
SOVER ;jBR IF YES 

SERFLG jjHAS AN ERROR OCCURRED? 

3$ ;>BR IF NO 

SERMAX, SERFLG JjMAX. ERRORS FOR THIS TEST OCCURRED? 
3$ j;BR IF NO 

#BIT09,0SWR ,';LOOP ON ERROR? 
4$ ;;BR IF NO 

SLPERR,SLPADR JfSET LOOP ADDRESS TO LAST SCOPE 
SOVER 

SERFLG ;;ZERO THE ERROR FLAG 

STIMES jjCLEAR THE NUMBER OF ITERATIONS TO MAKE 

IS ;;ESCAPE TO THE NEXT TEST 

#BIT11»PSWR -{INHIBIT ITERATIONS? 
IS ;;BR IF YES 

SPASS ;jlF FIRST PASS OF PROGRAM 

IS -J INHIBIT ITERATIONS 

SICNT ; J INCREMENT ITERATION COUNT 

STIMES, SICNT ;JCHECK THE NUMBER OF ITERATIONS MADE 
SOVER ;;BR IF MORE ITERATION REQUIRED 

#1, SICNT {{REINITIALIZE THE ITERATION COUNTER 
SMXCNT, STIMES JJSET NUMBER OF ITERATIONS TO DO 
STSTNM ; {COUNT TEST NUMBERS 

(SP),SLPADR {{SAVE SCOPE LOOP ADDRESS 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 I »DZTAB-C 
DZTABC.NEW SCOPE HANDLER ROUTINE 



2324 


012502 


011667 


166402 






MOV 


2325 


012506 


005067 


166456 






CLR 


2326 


012512 


112767 


000001 


166375 




MOV 


2327 


012520 


016777 


166356 


166414 


SOVER: 


MOV 


2328 


012526 


016716 


166354 






MOV 


2329 


012532 


000002 








RTI 



2330 012534 003720 



SMXCNT: 2000. 
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(SPJ,SLPERR {{SAVE ERROR LOOP ADDRESS 

SESCAPE {{CLEAR THE ESCAPE FROM ERROR ADDRESS 

Si, SERMAX {{ONLY ALLOW 0NE(1} ERROR ON NEXT TEST 

STSTNM, ^DISPLAY {{DISPLAY TEST NUMBER 

SLPADR,(SP) {{FUDGE RETURN ADDRESS 

{{FIXES PS 

{{MAX. NUMBER OF ITERATIONS 



TAll BASIC LOGIC TEST (PART 2) MAINDEC«"U «DZTAB»C 
DZTABC.NEW ERPOR HANDLER ROUTINE 
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2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2 35 4 

2355 

2356 

2357 

2358 

2359 

23b0 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 



012536 
012536 
012540 
012544 
012550 
012554 
012560 
012564 
012566 
012574 
012602 
012604 
012610 
012614 
012620 
012626 
012634 
012642 
012644 
012653 
012654 
012654 
012660 
012662 
012664 
012666 
012674 
012676 
012702 
012706 
012710 
012714 
012714 
012722 
012724 
012726 
012726 



104406 
011437 
011537 
010037 
010137 
105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

005777 
100002 



001162 
001164 
001124 
001126 
166317 

166310 
002000 

001172 
166276 
166276 
000002 
166264 
020000 

000060 
001177 



166206 
166262 



166346 
166336 



166270 
166260 
166276 



104406 
032777 
001402 
016716 
005767 
001402 
016716 



022737 012232 000042 



,SBTTL ERROR HANDLER ROUTINE 

J ,»»##»■*»#»«•«.»*»»*»*»*«■*«#«•»*«»**«#»»»»»»»*»»»«««•»*«■»«»»*««»»*»«* 

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

;»SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO TYPERP ON ERROR 

;«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE; 

;*SW15=1 HALT ON ERROR 

f*SW13=l INHIBIT ERROR TYPEOUTS 

.»SW10=1 BELL ON ERROR 

;«SW09sl LOOP ON ERROR 

;«CALL 

•« ERROR N ;;ERROR=EHT AND NsERROR ITEM NUMBER 



;;TEST FOR CHANGE IN SOFT-SWR 

;SAVE THE STATUS REG, , 
jSAVE THE DATA BUFFER 
;R0 ^ILh CONTAIN THE GOOD DATA 
;R1 WILL CONTAIN THE BAD DATA 

;;SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 

; {DISPLAY TEST NUMBER AND ERROR FLAG 

jjBELL ON ERROR? 

;;N0 - SKIP 

jjRlNG BELL 

?;C0UNT THE NUMBER OF ERRORS 

•;GET ADDRESS OF ERROR INSTRUCTION 

jjSTRIP AND SAVE THE ERROR ITEM CODE 

; ;SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

J J GO TO USER ERROR ROUTINE 



{HALT ON ERROR 

jSKIP IF CONTINUE 

J HALT ON ERROR! 

•TEST FOR CHANGE IN SOFT-SWR 

jLOOP ON ERROR SWITCH SET? 

;8R IF NO 

jFUDGE RETURN FOR LOOPING 

;CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

•FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-U AUTO-ACCEPT? 
jBRANCH IF NO 
J YES 



SERRUR: 


CKSWR 






MOV 


§TACS,3#SREG0 




MOV 


?TADB,P»$REG1 




MOV 


R0,§#SGDDAT 




MOV 


R1,0«SBDDAT 


7S: 


INCB 


SERFLG 




BEQ 


7S 




MOV 


STSTNM,PDISPLAY 




BIT 


#BIT10,(a5WR 




BEQ 


1$ 




TYPE 


,$BELL 


IS! 


INC 


SERTTL 




MOV 


(SP),$ERRPC 




SUB 


#2,$LRRPC 




MOVB 


PSERRPCSITEMB 




BIT 


#BIT13,@SWR 




BNE 


20$ 




JSR 


PCTYPERR 




TYPE 


rSCRLF 


20S: 






2$5 


TST 


§SWR 




BPL 


3S 




HALT 






CKSWR 




3$; 


BIT 


SbIT09,P5WR 




BEO 


4S 




MOV 


SLPERRrCSP) 


4$; 


TST 


SESCAPE 




BEO 


5$ 




MOV 


SESCAPE, (SP) 


5S: 








CMP 


»$ENDAD,g»42 




BNE 


6$ 




HALT 





TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB«C 
DZTABC.NEW ERROR TYPEOUT ROUTINE 
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2383 








2384 








2385 








2386 


012730 


104401 


001177 


2387 


012734 


010046 




2388 


012736 


113700 


001114 


2389 


012742 


005300 




2390 


012744 


006300 




2391 


012746 


006300 




2392 


012750 


006 300 




2393 


012752 


062700 


001236 


2394 


012756 


012067 


000002 


2395 


012762 


104401 




2396 


012764 


000000 




2397 


012766 


104401 


001177 


2398 


012772 


012067 


000004 


2399 


012776 


001404 




2400 


013000 


104401 




2401 


013002 


000000 




2402 


013004 


104401 


001177 


2403 


013010 


012000 




2404 


013012 


001004 




2405 


013014 


012600 




2406 


013016 


104401 


001177 


2407 


013022 


000207 




2408 


013024 






2409 


013024 


013046 




2410 








2411 


013026 


104402 




2412 


013030 


005710 




2413 


013032 


001770 




2414 


013034 


104401 


013042 


2415 


013040 


000771 




2416 


013042 


020040 


000 


2417 




013046 





• •*»**#»•»*»»«•«■»■»*»•»»«•»»*»*«■■»«»**«•«««»*»***»*******«************** 
•THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 

;TYPE A CARRIAGE RETURN & LINE FEED 

;SAVE R0 

jPICKUP THE ITEM INDEX 

{ADJUST THE INDEX 

;S0 IT WILL WORK FOR 

;THE ERROR TABLE 

;FORM THE TABLE POINTER 

{PICKUP "ERROR MESSAGE" POINTER 

{TYPE "ERROR MESSAGE" 

{"ERROR MESSAGE POINTER" GOES HERE 

{PICKUP "DATA HEADER" POINTER 

{IF "0" DON'T TYPE 

{TYPE "DATA HEADER 

{"DATA HEADER" POINTER GOES HERE 

{PICKUP "DATA POINTER" 

{IF THERE IS DATA TO TYPE GO DO IT 

{RESTORE R0 

•TYPE A CARRAGE RETURN&LINE FEED 

{RETURN 

{{SAVE P(R0)+ FOR TYPEOUT 

{{TYPE DATA 

{{GO TYPE--OCTAL ASCII(ALL DIGITS) 

{TERMINATOR? 

{BR IF YES 

{TYPE 2 SPACES 

{LOOP 

{ASCII STRING OF 2 SPACES 



TYPERR: 


TYPE 


,SCRLF 




MOV 


R0,-(SP) 




MOVB 


@#$ITEMB,R0 




DEC 


R0 




ASL 


R0 




ASL 


R0 




ASL 


R0 




ADD 


}!$ERRTS,R0 




MOV 


(R0)+,1S 




TYPE 




ISJ 









TYPE 


,$CRLF 




MOV 


(R0)+,2$ 




BEQ 


3S 




TYPE 




2S! 









TYPE 


,SCRLF 


3S! 


MOV 


(R0)+,R0 




BNE 


5S 


4$: 


MOV 


(SP)+,R0 




TYPE 


,SCRLF 




RTS 


PC 



?(R0)+,-(SP) 



TYPOC 




TST 


CR0) 


BEQ 


4S 


TYPE 


,6$ 


BR 


5S 


.ASCIZ 


/ / 


.EVEN 





TAli BASIC LOGIC TEST (PART 2} MAINDEC-1 1-DZTAB-C 



DETABC,NEW 



ROUTINE TO WAIT ON THE READY BIT TO SET 
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2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
245i 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 



jROUTINE TO WAIT ON THE READY BIT 



013046 
013046 
013052 
013060 
013064 
013072 
013076 
013102 
013104 
013106 
013110 
013112 
013114 
0I3U6 
013120 
013122 
013124 
013126 
013130 
013132 
013136 
013142 
013146 
013150 



013152 
013152 
013156 
013164 
013170 
013176 
013202 
013204 
013206 
013212 
013214 
01 3216 
013220 
013222 
013224 
013226 
013230 
013232 
013234 
013236 
013242 
013246 
013252 



005067 
016767 
012637 
162737 
012637 
032714 
001013 
105714 
100002 
104004 
000407 
005227 

000000 

001366 
005327 
0000^0 
003363 
104002 
013746 
013746 
062716 
000002 



005067 
013767 
012637 
162737 
012637 
105714 
100414 
032714 
001402 
104004 
000407 
005227 

000000 

001366 
005327 

000000 

003363 
104003 
013746 
013746 
062716 
000002 



000044 
000072 
001202 
000002 
001204 



000044 
001202 



001204 
001202 
000002 



000044 
013150 
001202 
000002 
001204 



WAIT, ON. READY? 
CLR 
MOV 
MOV 
SUB 
MOV 

WAITIS BIT 
ONE 
TSTB 
BPL 
ERROR 
BR 

WAIT4; INC 

WAIT2: 

BNE 
DEC 

HGHTIM; 

BGT 
ERROR 

WAIT3S MOV 
MOV 
ADD 
RTI 

MAXCNT! 



000044 

001202 



WAIT2 

MAXCNT, HGHTIM 

CSP)t,9#SAVPC 

#2r98SAVPC 

(SP)+,&#SAVPS 

#READY,^TACS 

WAIT3 

@TACS 

WAIT4 

4 

WftIT3 

CPC) + 

WAITI 
(PC) + 

WAITI 

2 

§»SAVPS#-(SP) 
?#SAVPC#»(SP) 
#2,(SP) 



;SETUP MAX. TIME TO WAIT ON "READY" 

;GET THE PC OF THE WAIfREADY INSTRUCTION 

;SAVE THE PS 

;READY=1? 

,'G0 ON IF YES 

;CHECK TRANSFER REQUEST 

; "TRANSFER REQUEST" SET WHILE WAITING ON 

jCOUNT FAST COUNTER 

jGO CHECK "READY" AGAIN 
jCOUNT LOOP COUNTER 

;G0 LOOP AGAIN 

; "READY" FAILED TO SET 

;GET THE STATUS BACK 

J GET THE PC 



•ROUTINE TO WAIT ON TRANSFER REQUEST 



WAIT. FOR, XFER.REQS 



CLP 


2S 


MOV 


§§MAXCNT, 3S 


MOV 


(SP)+,§#SAVPC 


SUB 


#2,?#SAVPC 


MOV 


(SPjf.eusAvps 


TSTB 


§TACS 


BMl 


4$ 


BIT 


#READY,0TACS 


BEQ 


5$ 


ERROR 


4 



5$! 
2$? 



001204 
001202 

000002 



BNE 


IS 




DEC 


(PC) + 




BGT 


1$ 




ERROR 


3 




MOV 


P#SAVPS, 


-(SP) 


MOV 


0#SAVPC. 


-(SP) 


ADD 


#2,{SP) 




RTI 







jSETUP WASTE TIME LOOP 

;GET THE PC OF THE WAITXFER INSTRUCTION 

J SAVE THE PS 

jCHECK XFER REQ 

;EXIT IF SET 

jLOOK AT READY 

;BR IF "READY" ISN'T SET 

',"REkD\" SET WHILE WAITING FOR "XFER REQ 

jCOUNT 

;BR IF MORE TO DO 



; "TRANSFER REQUEST" FAILED TO SET 
jGET THE STATUS BACK 
;GET THE PC 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-U -DETAB-C 
DETABC^NEW ROUTINE TO WAIT ON TRANSFER REQUEST 
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2472 








2473 








2474 








2475 








2476 








2477 








2478 








2479 








2480 


013254 


104401 


016744 


2481 


013260 


005067 


165740 


2482 


013264 


104410 




2483 


013266 


012600 




2484 


013270 


105710 




2485 


013272 


001425 




2486 


013274 


012701 


001224 


2487 


013300 


122710 


000101 


2488 


013304 


001002 




2489 


013306 


112021 




2490 


013310 


00041! 




2491 


013312 


122710 


000102 


2492 


013316 


001002 




2493 


013320 


112021 




2494 


013322 


000404 




2495 


013324 


122710 


000054 


2496 


013330 


001006 




2497 


013332 


105720 




2498 


013334 


105710 




2499 


013336 


001406 




2500 


013340 


022701 


001226 


2501 


013344 


101355 




2502 


013346 


104401 


001176 


2503 


013352 


000740 




2504 


013354 


005767 


165644 


2505 


013360 


001772 




2506 


013362 


000207 




2507 








2508 








2509 








2510 








2511 








2512 


013364 


010046 




2513 


013366 


104401 


016760 


2514 


013372 


104411 




2515 


013374 


012600 




2516 


013376 


001423 




2517 


013400 


020027 


160000 


2518 


013404 


103770 




2519 


013406 


010037 


001206 


2520 


013412 


062700 


000002 


2521 


013416 


010037 


001212 


2522 


013422 


013737 


001206 001210 


2523 


013430 


005237 


001210 


2524 








2525 


013434 


013737 


001212 001214 


2526 


013442 


005237 


001214 


2527 


013446 


104401 


016770 



ROUTINE TO ASK THE OPERATOR WHAT DRIVECS) TO TEST 



.SBTTL 




ROUTINE TO A 


iCALL 






• 


JSH 


PCesASKDRV 


J 


RETURN 




ASKDRVs 


TYPE 


yMSGDRV 




CLR 


DRVKEY 




RDLIN 






MOV 


(SP)+,R0 




TSTB 


@R0 




BEQ 


NOTLGL 




MOV 


SDRVKEY,R1 


LOOPS 


CMPB 


S'A,PR0 




BNE 


NOTA 




MOVB 


(R0) + ,(Rl)-s- 




BR 


NEXT 


NOTAs 


CMPB 


S'B,@R0 




BNE 


NOTB 




MOVB 


(R0)+,(R1)+ 




BR 


NEXT 


NOTBJ 


CMPB 


#54,@R0 




BNE 


NOTLGL 




TSTB 


(R0) + 


NEXTS 


TSTB 


@R0 




BEQ 


EXIT 




CMP 


#DHVKEY+2,R1 




BHI 


LOOP 


NOTLGLs 


TYPE 


#$QUES 




BR 


ASKDRV 


EXIT? 


TST 


DRVKEY 




BEQ 


NOTLGL 




RTS 


PC 



R0 AND Rl ARE DESTROYED 

?<CRLF>"DRIVE(S)? " 

;G0 GET A DRIVE 

fSETUP TO CHECK FOR VALID DRIVE(S) 

;WAS A DRIVE SELECTED? 

jBR IF NO 

;WAS DRIVE "A" SELECTED? 

;BR IF NO 

;SET KEY FOR DRIVE "A" 

;WAS DRIVE "B" SELECTED? 

jBR IF NO 

;SET KEY FOR DRIVE «B» 

;WAS A COMMA TYPED? 

jBR IF NO 

jDUMP THE COMMA 

jTERMINATOR? 

;8R IF YES 

?TWO DRIVES SELECTED? 

;BR IF NO 

J ILLEGAL INPUT DETECTED 

?G0 TRY AGAIN 

JANY DRIVE SELECTED? 

jBR IF NO 



CALL 

JSR PC. ?#ASKADR 



ASKADRs 


MOV 


R0,»(SP) 


is; 


TYPE 
RDOCT 


,MSGASK 




MOV 


(SP)+,R0 




BEQ 


3$ 




CMP 


R0, #160000 




BLO 


1$ 




MOV 


R0,9#TACSL 




ADD 


#2,R0 




MOV 


R0,0#TADBL 




MOV 


0»TACSL,^STACSH 




INC 


i#TACSH 




MOV 


@#TAD8L,i#TADBH 




INC 


§#TADBH 


3$S 


TYPE 


,MSGVEC 



JSAVE R0 

J"TACS?" 

?GET VALUE 

fPICK UP THE OCTAL NUMBER 

?IF «0" USE OLD VALUES 

jMAKE SURE IT IS A BUS ADDRESS 

jSAVE TOE TACS 
J STEP TO TADB ADDRESS 
jAND SAVE IT 
TACS UPPER 
;BYTE POINTER 

JSETUP TADB UPPER 
•BYTE POINTER 
? "VECTOR?" 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 l-DETAB-C MACYll 27(732) 

DZTABC.NEW ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 



2528 


013452 


104411 




2529 


013454 


012600 




2530 


013456 


001411 




253i 


013460 


020027 


001000 


2512 


013464 


103370 




2533 


013466 


010037 


001216 


2534 


013472 


062700 


000002 


2535 


013476 


010037 


001220 


2536 


013502 


104401 


017000 


2537 


013506 


104411 




2538 


013510 


012600 




2539 


013512 


001413 




2540 


013514 


020027 


000007 


2541 


013520 


101370 




2542 


013522 


000300 




2543 


013524 


006200 




2544 


013526 


006200 




2545 


013530 


006200 




2546 


013532 


042700 


177437 


2547 


013536 


010037 


001222 


2548 


013542 


104401 


017012 


2549 


013546 


016746 


165434 


2550 


013552 


104402 




2551 


013551 


104401 


017020 


2552 


013560 


016746 


165426 


2553 


013564 


104402 




2554 


013566 


104401 


017027 


2555 


013572 


016746 


165420 


2556 


013576 


104402 




2557 


013600 


104401 


017040 


2558 


013604 


016746 


165412 


2559 


013610 


104402 




2560 


013612 


104401 


017053 


2561 


013616 


104407 




2562 


013620 


012600 




2563 


013622 


022700 


000015 


2564 


013626 


001406 




2565 


013630 


022700 


000131 


2566 


013634 


001403 




2567 


013636 


104401 


001 176 


2568 


013642 


000651 




2569 


013644 


104401 


017061 


2570 


013650 


012600 




2571 


013652 


000207 





RDOCT 




MOV 


(SP)+,R0 


BEQ 


5S 


CMP 


R0,#i000 


BHIS 


3S 


MOV 


R0,§STAVEC 


ADD 


»2fR0 


MOV 


R0,(asTAVEC + 2 


TYPE 


,MSGPRI 


RDOCT 




MOV 


{SP)+,R0 


BEQ 


6$ 


CMP 


R0,#7 


BHI 


5S 


SWAB 


R0 


ASP 


R0 


ASR 


R0 


ASR 


R0 


BIC 


#-C<340>,R0 


MOV 


R0»@»TAPRIO 


TYPE 


#MTACS 


MOV 


TACSL,»(SP3 


TYPOC 




TYPE 


fMTADB 


MOV 


TADBL,«(SP} 


TYPOC 




TYPE 


,MTAVEC 


MOV 


TAVEC,"(SP) 


TYPOC 




TYPE 


,MTAPRI 


MOV 


TAPRIO,-(SP) 


TYPOC 




TYPE 


,MSGOK 


RDCHR 




MOV 


(SP)<-,R0 


CMP 


#15, R0 


BEQ 


7S 


CMP 


#'Y#R0 


BEQ 


7S 


TYPE 


rSOUES 


BR 


u 


TYPE 


fMYES 


MOV 


(SP)+,R0 


RTS 


PC 
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jMAKE SURE ADDRESS IS IN VECTOR AREA 
JSAVE AS VECTOR ADDRESS 

;ASK FOR PRIORITY 



;IF "0" USE OLD VALUE 
jMAKE SURE ITS VALID 

;PUT INTO HIGH BYTE 

;AND SHIFT 

jINTO PROPER 

JPOSITION 

jSAVE ONLY PRIORITY BITS 

;STORE IT AWAY 

jTACSs" 
yjSAVE TACSL FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCIKALL DIGITS) 

J^TADBr" 
nSAVE TADBL FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCIKALL DIGITS) 

;«VECT0Rs" 
; JSAVE TAVEC FOR TYPEOUT 
J, 'GO TXP£-«-OCTAL ASCHCALL DIGITS) 

{"PPIORlTYs" 
?ySAVE TAPRIO FOR TYPEOUT 
jjGO TYPE— OCTAL ASCIKALL DIGITS) 

;''0K?« 

;G0 READ ONE CHARACTER 

;GET IT 

;IS IT "CR"? 

yBRANCH IF YES 

jIS IT "Y"? 

;IT WAS 

jTYPE "?» 

JAND LET HIM CORRECT THEM 

;TYPE OUT "YES" 

J RESTORE R0 

;AND RETURN 



TASl BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 
DZTABC.NEW ROUTINE TO CALCULATE THE CRC 
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2572 






2573 






2574 






2575 






2576 






2577 






2578 


013654 




2579 


013654 


010046 


2580 


£13656 


010146 


2581 


013660 


010246 


2582 


013662 


010346 


2583 


013664 


010446 


2584 


013666 


012767 000010 000054 


2585 


013674 


016703 000074 


2586 


013700 


005001 


2587 


013702 


010302 


2588 


013704 


042702 177776 


2589 


013710 


006000 


2590 


013712 


006101 


2591 


013714 


010104 


2592 


013716 


040204 


2593 


013720 


040102 


2594 


013722 


050402 


2595 


013724 


006002 


2596 


013726 


103006 


2597 


013730 


012701 040002 


2598 


013734 


010104 


2599 


013736 


040304 


2600 


013740 


040103 


2601 


013742 


050403 


2602 


013744 


006003 


2601 


013746 


005327 


2604 


013750 


000000 


2605 


013752 


003352 


2606 


013754 


010367 000014 


2607 


013760 


012604 


2608 


013762 


012603 


2609 


013764 


012602 


2610 


013766 


012601 


2611 


013770 


012600 


2612 


013772 


000207 


2613 


013774 


000000 


2614 







jTHIS ROUTINE WILL CALCULATE THE CRC 

jCALL: 

? JSfi PC, DO. CRC •R0=i BYTE OF DATA 



nPUSH R0 ON STACK 
JjPUSH Rl ON STACK 
jyPUSH R2 ON STACK 
?;PUSH R3 ON STACK 
J J PUSH R4 ON STACK 

JMAKE EIGHT ITERATIONS 

J PICKUP THE CRC WORD 

?GET THE PARTIAL CRC WORD 

JSTRIP AWAY EVERYTHING BUT B1T00 

jPULL OFF THIS BIT 

;AND SETUP TO XOR IT 

?FORM THE XOR OF «R1" AND •'R2'' 



^RESULTS TO "Ra" 

jFORH THE XOR OF "Rl" AND "RS" 
;RESULTS TO "RJ" 

|BR IF MORE BITS TO DO 

IJPOP STACK INTO R4 
if POP STACK INTO R3 
J J POP STACK INTO R2 
IJPOP STACK INTO Rl 
J I POP STACK INTO R0 

jCRC WORD 



DO, CRC 








MOV 


R0,-(SP) 




MOV 


R1,"(SP) 




MOV 


R2r-(SP) 




MOV 


R3,-(SP) 




MOV 


R4,»(SP) 




MOV 


#8, ,3$ 




MOV 


CRC«WD,R3 


ISl 


CLR 


Rl 




MOV 


R3,R2 




BIC 


»'"CBIT00,R2 




ROR 


R0 




ROL 


Rl 




MOV 


R1,R4 




BIC 


R2,R4 




BIC 


R1,R2 




BIS 


R4,R2 




ROR 


R2 




BCC 


2$ 




MOV 


#B1T14IBIT0 




MOV 


R1,R4 




BIC 


R3,R4 




BIC 


R1,R3 




BIS 


R4,R3 


2$: 


ROR 


R3 




DEC 


(PC) + 


3SS 









BGT 


IS 




MOV 


R3,CRC.WD 




MOV 


(SP)*,R4 




MOV 


(SP)+,R3 




MOV 


{SP)^,R2 




MOV 


(SP)+,R1 




MOV 


(SP)+,R0 




RTS 


PC 



CPC.WDs 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1-DETAB-C 
DZTABCNEW »»«■»«»**«» MANUAL ADJUSTMENT ROUTINES 
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2615 








2616 








2617 








2618 








2619 








2620 








2621 








2622 








2623 








2624 








2625 








2626 








2627 








2628 








2629 


013776 


012706 


001100 


2630 


014002 


013704 


001206 


2631 


014006 


013705 


001212 


2632 


014012 


000005 




2633 


014014 


012737 


013776 


2634 


014022 


004737 


015002 


2635 


014026 


010314 




2636 


014030 


112714 


000017 


2637 


014034 


032714 


000040 


2638 


014040 


001775 




2639 


014042 


112714 


000001 


2640 


014046 


104412 




2641 


014050 


032714 


020000 


2642 


014054 


001772 




2643 


014056 


000000 




2644 


014060 


000746 




2645 








2646 








2647 








2648 








2649 








2650 








2651 








2652 








2653 








2654 








2655 








2656 








2657 








2658 








2659 








2660 


014062 


004737 


014544 


2661 


014066 


012706 


001100 


2662 


014072 


013704 


001206 


2663 


014076 


013705 


001212 


2664 


014102 


000005 




2665 


014104 


012737 


014066 


2666 


014112 


004737 


015002 


2667 


014116 


010314 




2668 


014120 


112714 


000017 


2669 


014124 


032714 


000040 


2670 


014130 


001775 





', / n / n / / u n / / u n / n / / n n u / / u / n n n / n n / n / / u // u n I u n u / / f n 

;THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
•NOTE! ### BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 S## 



"BOT 



; WRITE FILE GAPS FROM 
jSTART AT 220 
jTHIS ROUTINE CAN BE USED 
jTHE "WRITE DELAY MONO", 



WFGSUBs 



MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 

BEQ 

MOVB 



#STACK,SP 

g#TACSL,TACS 

0#TADBL,TADB 



#WFGSUB,ii#SLPERR 

PC,a#NXTDRV 

DRIVE, §TACS 

#REWINDJGO,PTACS 

#READY,§TACS 

100$ 

#WFGJGO,PTACS 

WAITREADY 

BIT SLEADER»§TACS 

BEO U 

HALT 

BR WFGSUB 



' TO "EOT" 
TO ADJUST THE "WRITE GAP MONO" AND 

;KEEP THE STACK OUT JF THE WAY 
;SETUP THE TAll STATUS AND 
jDATA BUFFER REGISTERS 
jRESET THE WORLD 

I SETUP THE LOOP ON ERROR ADDRESS 
•GO SETUP FOR NEXT DRIVE 
{SELECT DRIVE 
jSEND TAPE TO «BOT" 
;WAIT ON READY 

jWRITE A FILE GAP 
;WAIT ON READY 
;AT "CLEAR LEADER"? 
;BR IF NO 
;STOP IF YES 
jLOOP ON CONT. 



»■»«■«.»•»**»«••»*«•»»*«■«*»«■# 



WRITE CONTINUOUS BLOCKS OF DATA 

• STA RT AT 224 

•THE PROGRAM WILL HALT THREEC3) TIMES 

;AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

;HALT 1 --- SWR<7!0> = NUMBER OF BYTES PER BLOCK 

;HALT 2 •»-- SWR<7!0> = PATTERN DESIRED 

jHALT 3 «"- SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

;THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWRsXXXXXX NEW=" 
«■*»**«««*■»«»«»**»»**««■********«■»«********»****» *********** 

;GET BLOCK SIZE AND PATTERN 

jKEEP THE STACK OUT OF THE WAY 

•SETUP THE TAll STATUS AND 

•DATA BUFFER REGISTERS 

jRESET THE WORLD 

•SETUP THE LOOP ON ERROR ADDRESS 

jGO SETUP FOB NEXT DRIVE 

fSELECT DRIVE 

;SEND TAPE TO "BOT" 

•WAIT ON READY 



WRTSUB! 


JSR 


PCasSETBUF 


WL00P5 


MOV 


||STACK,SP 




MOV 


g»TACSL,TACS 




MOV 


9#TADBL,TADB 




RESET 






MOV 


»WLOOP,^»$LPERR 




JSR 


PC,3»NXTDRV 




MOV 


DRIVE, (iTACS 




MOVB 


#R£WINDIG0,PTACS 


100S: 


BIT 


#READY,eTACS 




BEQ 


100S 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-U -DZTAB 
DZTABC.NEW WRITE CONTINUOUS BLOCKS OF DATA 



2671 


014132 


004737 


014660 


2672 


014136 


032714 


020000 


2673 


014142 


0017 7 3 




2674 


014144 


000000 




2675 


014146 


000747 




2676 








2677 








2678 








2679 








2680 








2681 








2682 








2683 








2684 


014150 


012706 


001100 


2685 


014154 


013704 


001206 


2686 


014160 


013705 


001212 


2687 


014164 


000005 




2688 


014166 


012737 


014150 001U0 


2689 


014174 


004737 


015002 


2690 


014200 


010314 




2691 


014202 


112714 


000017 


2692 


014206 


032714 


000040 


2693 


014212 


001775 




2694 


014214 


004737 


014722 


2695 


014220 


032714 


020000 


2696 


014224 


001351 




2697 


014226 


000772 




2698 








2699 








2700 








2701 








2702 








2703 








2704 








2705 








2706 








2707 








2708 








2709 








2710 








2711 








2712 








2713 








2714 


014230 


004737 


014544 


2715 


014234 


012706 


001100 


2716 


014240 


013704 


001206 


2717 


014244 


013705 


001212 


2718 


014250 


000005 




2719 


014252 


012737 


014234 001110 


2720 


014260 


004737 


015002 


2721 


014264 


010314 




2722 


014266 


U2714 


000017 


2723 


014272 


032714 


000040 


2724 


014276 


001775 




2725 


014300 


112714 


000001 


2726 


014304 


104412 





-C 


MACYil 


27(732) 
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OF DATA 








JSR 


PC,08WRTBLK 




JWRITE A BLOCK 


BIT 


#LEADER,?TACS 




•AT "CLEAR LEADER"? 


BEQ 


IS 




;BR IF NO 


HALT 






jSTOP IF "EOT" 


BR 


WLOOP 




jLOOP IF CONT. 



• ; *»» 

RDSUB 



100S! 
IS! 



READ CONTINUOUS BLOCKS OF DA 
jSTART AT 230 

!THIS ROUTINE CAN BE USED TO 
•AND THE "THRESHOLD POT", 

MOV #STACK,SP 

MOV @»TACSL,TACS 

MOV P»TADBL,TADB 

RESET 

MOV #RDSUB,§#SLPfcRR 

JSR PC,0#NXTDRV 

MOV DRIVE, @TACS 

MOVB SREWlND|GO,aTACS 

BIT #READY,0TACS 

BEQ 100S 

JSR PC,§»RD8LK 

BIT #LEADER,gTACS 

BNE RDSUB 

BR IS 



XA 



ADJUST THE "SIGNAL MONO" 

-»**»«-«4»*»*#»»*»»'» «■«■»»*■»•««■■»** 

;KEEP THE STACK OUT OF THE WAY 

;SETUP THE TAll STATUS AND 

•DATA BUFFER REGISTERS 

; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 

jGO SETUP FOR NEXT DRIVE 

jSELECT DRIVE 

jSEND TAPE TO "BOT" 

jWAIT ON READY 

•READ A BLOCK 

;AT "CLEAR LEADER"? 

;BR IF YES"»»-LOOP 



WGPBLK! 
WGBLOP! 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 
•START AT 234 

•THE PROGRAM WILL HALT THREE(3) TIMES 
jAFTEP EACH HALT SET THE SWR AND PRESS CONTINUE 
jHALT 1 ■»-» SWR<7!0> = NUMBER OF BYTES PER BLOCK 
jHALT 2 "»- SWR<7!0> = PATTERN DESIRED 
jHALT 3 "— SWR<15I0> = OPERATIONAL SWITCH SETTINGS 
.»» IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEWs" 

AND THE "GAP TIME MONO". 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 



JSR 

MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 

BEO 

MOVB 



PCfSSETBUF 
#STACK,SP 
@#TACSL,TACS 
g«TADBL,TADB 

#WGBLOP,@«SLPERR 

PCfSNXTDRV 

DRIVE, 0TACS 

|REWIND|G0,?TACS 

#READY,PTACS 

100$ 

#WFG|G0,#TACS 



WAITREADY 



;GET BLOCK SIZE AND PATTERN 
J KEEP THE STACK OUT OF THE WAY 
;SETUP THE TAll STATUS AND 
jDATA BUFFER REGISTERS 
; RESET THE WORLD 

f SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT Oj^IVE 
jSELECT DRIVE 
jSEND TAPE TO "BOT" 
jWAIT ON READY 

jWRITE A FILE GAP 
;WA1T ON READY 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-i 1 -DETAB-C MACYll 27(732) 

DZTABC.NEW WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 



2727 


014306 


03: 714 


020000 


2728 


014312 


00V 005 




2729 


014314 


004737 


014660 


2730 


014320 


03:714 


020000 


2731 


014324 


00 765 




2732 


014326 


001 000 




2733 


014330 


001 741 




2734 








2735 








2736 








2737 








2738 








2739 








2740 








2741 








2742 








2743 


014332 


e'2706 


00U00 


2744 


014336 


013704 


001206 


2745 


014342 


013705 


001212 


2746 


014346 


000005 




2747 


014350 


012737 


014332 


2748 


014356 


004737 


015002 


2749 


014362 


010314 




2750 


014364 


112714 


000017 


2751 


014370 


032714 


000040 


2752 


014374 


001775 




2753 


014376 


004737 


014722 


2754 


014402 


032714 


020000 


2755 


014406 


001351 




2756 


014410 


112714 


000015 


2757 


014414 


104412 




2758 


014416 


032714 


020000 


2759 


014422 


001343 




2760 


014424 


000764 




2761 








2762 








2763 








2764 








2765 








2766 








2767 








2768 








2769 








2770 








2771 


014426 


012706 


001100 


2772 


014432 


013704 


001206 


2773 


014436 


013705 


001212 


2774 


014442 


300005 




2775 


014444 


012737 


014426 


2776 


014452 


004737 


015002 


2777 


014456 


010314 




2778 


014460 


U2714 


000017 


2779 


014464 


032714 


000040 


2780 


014470 


001775 




2781 


014472 


112714 


000013 


2782 


014476 


104412 





BIT 


PLEADER, @TACS 


BNE 


2$ 


JSR 


PCeSWRTBLK 


BIT 


|LEADER,?TACS 


BEQ 


1$ 


HALT 




BR 


WGBLOP 
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;AT "CLEAR LEADER"? 

jBR IF YES 

;WRITE A BLOCK 

;AT "CLEAR LEADER"? 

;BR IF NO 

jSTOP AT "EOT" 

jSTART OVER ON CONT» 



• READ A BLOCK OF DATA AND A FILE 
jSTART AT 240 
•THIS ROUTINE IS USED AFTER "WR 
J IT CAN BE USED TO ADJUST THE 
•AND THE "TAPE BLANK MONO". 



»«»»*»»»**«»»»*■»•*«■**»•»«•»*«■**•»» 



RGPBLK! 


MOV 


»STACK»SP 




MOV 


9STACSL,TACS 




MOV 


g#TADBL»TADB 




RESET 






MOV 


#RGPBLK,§«SLPERR 




JSR 


PCf 9#NXTDRV 




MOV 


DRIVE, gTACS 




MOVB 


«REWIND1G0,@TACS 


100$: 


BIT 


»REA0y,9TACS 




BEQ 


100S 


IS! 


JSR 


PC,9»RDBLK 




BIT 


#LEADER,PTACS 




BNE 


RGPBLK 




MOVB 


»SFBGJGO,gTACS 




WAITREADY 




BIT 


SLEADER,iTACS 




BNE 


RGPBLK 




BR 


1$ 



ITE A BLOCK AND A FILE GAP" ROUTINE 
SIGNAL MONO", THE THRESHOLD POT" 

*****«*»»■»»»»**»»«•«■«■*»»»» 

J KEEP THE STACK OUT OF THE WAY 

jSETUP THE TAil STATUS AND 

jDATA BUFFER REGISTERS 

; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
; SELECT DRIVE 
jSEND TAPE TO "BOT" 
•WAIT ON READY 

fREAD A BLOCK OF DATA 
;AT "CLEAR LEADER"? 
jBR IF YES 
jGET INTO A FILE GAP 

jAT "CLEAR LEADER"? 
;BR IF YES 
J LOOP 



• •«»»■»«» 



• ;*»# 
SFFGS 



100 
ISI 



SPACE FORWARD FILE GAP FRi 

• START AT 2 4 4 

•THIS ROUTINE CAN BE USED AFTEl 

•SPACE FOWARD (TAPE BLANK MONO 

jWRITE A FILE GAP AND A BLOCK 

; (SIGNAL MONO CAN BE CHECKED), 

MOV #STACK,SP 

MOV P»TACSL,TACS 

MOV g#TADBL,TADB 

RESET 

MOV «SFFGSB,?SSLPERR 

JSR PC,§»NXTDRV 

MOV DRIVE, &TACS 

MOVB #REWINDIG0,?TACS 

BIT SREADY,0TACS 

BEQ 100$ 

MOVB #SFFG1G0,3TACS 



BOT" TO "EOT" 



»»*«#»»»*»»»*»» 



WAITREADY 



R "WRITE FILE GAP" FOR LOW SPEED 

CAN BE ADJUSTED), OR AFTER READ OR 
OF DATA FOR HIGH SPEED SPACE FORWARD 

jKEEP THE STACK OUT OF THE WAY 
jSETUP THE TAU STATUS AND 
•DATA BUFFER REGISTERS 
jRESET THE WORLD 

J SETUP THE LOOP ON ERROR ADDRESS 
jGO SETUP FOR NEXT DRIVE 
; SELECT DRIVE 
jSEND TAPE TO "BOT" 
jWAIT ON READY 

•SPACE INTO A FILE GAP 
jWAIT ON READY 



TAll BASIC LOGIC TEST (PART 2) MAINDEC"U«-DZTAB~C 
DZTABC.NEW SPACE FORWARD FILE GAP FROM "BOT" 



MACYll 27(732) 
TO "EOT" 



2783 


014500 


032714 


020000 


2784 


014504 


001772 




2785 


014506 


000000 




2786 


014510 


000746 




2787 








2788 








2789 








2790 








2791 








2792 








2793 








2794 


014512 


000005 




2795 


014514 


012737 


014512 00U10 


2796 


014522 


010314 




2797 


014524 


112714 


000007 


2798 


014530 


104412 




2799 


014532 


032714 


020000 


2800 


014536 


001772 




2801 


014540 


000000 




2802 


014542 


000763 




2803 








2804 








2805 








2806 








2807 








2808 


014544 


005000 




2809 


014546 


000000 




2810 


014550 


022767 


000176 164362 


2811 


014556 


001001 




2812 


014560 


104405 




2813 


014562 






2814 


014562 


157700 


164352 


2815 


014566 


001006 




2816 


014570 


105777 


164345 


2817 


014574 


001402 




2818 


014576 


012700 


000376 


2819 


014602 


005200 




2820 


014604 


010037 


014654 


2821 


014610 


005037 


014656 


2822 


014614 


000000 




2823 


014616 


022767 


000176 164314 


2824 


014624 


001001 




2825 


014626 


104405 




2826 


014630 






2827 


014630 


117737 


164304 014656 


2828 


014636 


000000 




2829 


014640 


022767 


000176 164272 


2830 


014646 


001001 




2831 


014650 


104405 




2832 


014652 






2833 


014652 


000207 




2834 


014654 


000000 




2835 


014656 


000000 




2836 








2837 








2838 









BIT 

BEO 

HALT 

BR SFFGSB 



#LEADER,PTACS 
IS 
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AT "CLEAR LEADER"? 
BR IF NO 
STOP AT "EOT" 
LOOP ON CONT. 



««*«•#»»» 



BACK SPACE FILE GAP 

J START AT 250 

jTHIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO" 



RESET 

MOV »BSFGSB,3#SLPERR 

MOV DRIVE, §TACS 

MOVB #BSFGiGO,@TACS 

WAITREADY 

BIT #LEADER,iTACS 

BEQ 1$ 

HALT 

BR BSFGSB 



; RESET THE WORLD 

;LOOP ON ERROR ADDRESS 
jSELECT DRIVE 
jBACK SPACE A FILE GAP 
;WAIT ON READY 
;AT "CLEAR LEADER"? 
;BR IF NO 
;STOP AT BOT 
ISTART OVER ON CONT, 



SETUP 

SETBUF: CLP 
HALT 
CMP 
BNE 
GTSWR 



BISB 

BNE 

TSTB 

BEQ 

MOV 

INC 

MOV 

CLR 

HALT 

CMP 

BNE 

GTSWR 



BLOCK SIZE AND PATTERN FOR SUBROUTINES 



is: 
2S: 



MOVB 

HALT 

CMP 

BNE 

GTSWR 

RTS 



#SWREG,SWP 
20S 



9SWR,R0 
2$ 

PSWR+1 
1$ 

#376, R0 
R0 

R0,a»BLKLIM 
iSPATTRN 

gSWREG,SWR 
21S 



aSWR,§#PATTRN 



»SWREG,SWR 
22$ 



BLKLIM: 
PATTRN: 



jOPERATOR PUTS BYTE COUNT IN SWR<7S0> 
jUSlNG S/W SWITCH REG,? 
J NO- GET OUT 
jLET HIM CHANGE IT 
jCONTINUE 
jPICKUP THE BYTE COUNT 
;BR IF NON-ZERO 
jCHECK IF GREATER THAN 377 
;BR IF NO 

;SET FOR MAX ALLOWED 
jMAKE IT 377 OR I 
jSETUP THE BLOCK LIMIT 

jOPERATOR PUTS PATTERN IN SWR<7!0> 

jUSING S/W SWITCH REG,? 

|N0- GET OUT 

jLET HIM CHANGE IT 

jCONTINUE 

jPICK UP THE PATTERN 

;SET OPERATIONAL SWITCHES 

jUSING S/W SWITCH REG»| 

J NO- GET OUT 

jLET HIM CHANGE IT 

ICONTINUE 

fRETURN 

jREAD AND WRITE BLOCK SIZE 

; PATTERN TO GO ON THE TAPE 



#»»«■»«••»*•»»«•**»■»»««■■»*«■«■»»*■»«•»***«■■»«*»***»***•»■*************** 



TAU BASIC LOGIC TEST (PART 2) MAINDEC-l 1»DETAB-C 

WRITE ROUTINE FOR THE MANUAL OPERATIONS 
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DETABC, 


^EW 




WRITE R 


2839 








2840 








2841 


014660 


013701 


014654 


2842 


014664 


U2714 


000003 


2843 


014670 


104413 




2844 


014672 


032714 


000040 


2845 


014676 


001010 




2846 


014700 


005301 




2847 


014702 


002403 




2848 


014704 


113715 


014656 


2849 


014710 


000767 




2850 


014712 


052714 


000020 


2851 


014716 


104412 




2852 


014720 


000207 




2853 








2854 








2855 








2856 








2857 








2858 


014722 


013702 


014654 


2859 


014726 


013700 


014656 


2860 


014732 


S12714 


000005 


2861 


014736 


104413 




2862 


014740 


032714 


000040 


2863 


014744 


001012 




2864 


014746 


005302 




2865 


014750 


002405 




2866 


014752 


011501 




2867 


014754 


120001 




2868 


014756 


001767 




2869 


014760 


104005 




2870 


014762 


000406 




2871 


014764 


052714 


000020 


2872 


014770 


104412 




2873 


014772 


005714 




2874 


014774 


100001 




2875 


014776 


104001 




2876 


015000 


000207 




2877 








2878 








2879 








2880 








2881 


015002 


105777 


164132 


2882 


015006 


100416 




2883 


015010 


005003 




2884 


015012 


013701 


001230 


2885 


015016 


122127 


000101 


2886 


015022 


001402 




2887 


015024 


012703 


000400 


2888 


015030 


1057U 




2889 


015032 


001002 




2890 


015034 


012701 


001224 


2891 


015040 


010137 


001230 


2892 


015044 


000207 





WRTBLKs 



WRITE ROUTINE FOR THE MANUAL OPERATIONS 



MOV §SBLKHM,R1 
MOVB »WRITEJG0,9TACS 
WAITXFER 



2S; 

3SS 



RDBLKS 



BIT 

BNE 

DEC 

8LT 

MOVB 

BR 

BIS 



SREADYf @TACS 

3S 

Ri 

2$ 

§#PATTRN,@fADB 

IS 

#ILBS.§TACS 



WAITREADY 
RTS PC 



READ ROUTINE FOR THE MAI 

MOV §S8LKLIM,R2 
MOV ?#PATTRN,R0 
MOVB #READJG0,PTACS 
WAITXFER 



2$S 
3S! 



BIT 

BNE 

DEC 

BLT 

MOV 

CMPB 

BEQ 

ERROR 

BR 

BIS 



«READY»@TACS 

3S 

R2 

2S 

PTADB,Rl 

R0,R1 

IS 

5 

4S 

gILBSriTACS 



WAITREADY 
TST @TACS 
BPL 4$ 
ERROR 1 
RTS PC 



yPICKUP THE BLOCK SIZE 

•START A WRITE 

jWAIT ON TRANSFER REQUEST 

jDID READY SET? 

;BR IF YES 

jCOUNT THIS REQUEST 

;BR IF TIME FOR ILBS 

fPUT DATA ON TAPE 

ILOOP 

JWRITE CRC AND SHUT DOWN 

fWAIT ON THE READY FLAG 



NUAL OPERATIONS 

jPICKUP THE BLOCK SIZE 

jUSE THIS DATA PATTERN TO COMPARE TO 

jSTART A READ 

jWAIT ON TRANSFER REQUEST 

;IS READY SET? 

;BR IF YES 

,'COUNT THIS REQUEST 

jBR IF TIME FOR ILBS 

JREAD THE DATA BUFFER 

;CHECK THE DATA 

jBR IF OK 

;BAD DATA 

J GET OUT 

jREAD ILBS 

;WAIT ON READY 

?CHECK FOR ERROR 

jBR IF NONE 

jERROR OCCURRED 

; RETURN 



NXTDRV 



#«■»*»»»«.«•«««»««»»»•»*»«»»»»»««*»«»»«»**»***»*»<**»«»«»*«*«■*«* 



ROUTINE TO CHANGE DRIVES 



2$5 
3SI 



TSTB 

BMI 

CLR 

MOV 

CMPB 

BEQ 

MOV 

TSTB 

BNE 

MOV 

MOV 

RTS 



9SWR 

3$ 

DRIVE 

@gDRVPNT,Rl 

(R1)4-,#'A 

IS 

#UNIT, DRIVE 

(Rl) 

2S 

»DRVKEX#R1 

R1,§#DRVPNT 

PC 



jIS SW07 ON A (U? 

;BR IF YES 

JSET DRIVE TO "A" 

;GET DRIVE POINTER 

;IS IT DRIVE "A"? 

;BR IF YES 

jSET DRIVE TO "B" 

jLAST DRIVE BEEN SELECTED 

;BR IF NO 

jRESET DRIVE POINTER 

jSAVE DRIVE POINTER FOR NEXT TIME 

;G0 BACK 



TAU BASIC LOGIC TEST (PART 7) MAINDEC-1 1 -'DZTAB"C 
OZTABC.NEW ROUTINE TO CHANGE DRIVES 
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2893 








2894 








2895 








2896 








2897 








2898 








2899 








2900 








2901 








2902 








2903 


015046 


013701 


001206 


2904 


015052 


0050U 




2905 


015054 


122710 


000101 


2906 


015060 


001402 




2907 


015062 


052711 


000400 


2908 


015066 


0327U 


000040 


2909 


015072 


001775 




2910 


015074 


0057U 




2911 


015076 


100024 




2912 


015100 


032711 


001000 


2913 


015104 


001017 




2914 


015106 


0327U 


010000 


2915 


015112 


001411 




2916 


015U4 


122777 


000201 


2917 


015122 


001412 




2918 


015124 


122777 


000203 


2919 


015132 


001406 




2920 


015134 


000403 




2921 


015136 


032711 


020000 


2922 


015142 


001002 




2923 


015144 


062716 


000002 


2924 


015150 


000207 





IsBTTL ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 



jRl IS DESTROYED 



3s: 

4SS 



MOV 


#DPVKEY#R0 


JSR 


PC,i#EXAM 


NORMAL 


RETURN 


ERROR 


RETURN 


MOV 


e#TACSLyRl 


CLR 


(Rl) 


CMPB 


#'A,(R0) 


BEQ 


IS 


BIS 


#UNITaRl) 


BIT 


#READY,(R1) 


BEQ 


IS 


TST 


CRD 


BPL 


4$ 


BIT 


#0FFLINE,CR1) 


BNE 


3$ 


BIT 


#WRTLOCK,CRn 


BEQ 


2$ 


CMPB 


IBIT07|BlT00,iSWR 


BEQ 


4S 


CMPB 


gBIT07iBIT0ilBIT00,?SWR 


BEQ 


4S 


BR 


3$ 


BIT 


«LEADER,(Rl) 


BNE 


4$ 


ADD 


#2,(SP) 


RTS 


PC 



PICKUP THE "CONTROL & STATUS" 
DRIVEs^A", FUNCTlONs-'kEG" 
EXAMINE DRIVE "A"? 
BR IF YES 
SELECT DRIVE "B" 
MAIT ON READY 

ANY ERROR? 

BR IF NO 

ERROR DUE TO "OFF LINE"? 

BR IF YES 

ERROR DUE TO "WRITE LOCK"? 

BR IF NO 

"READONLY" SELECTED? (RDIPAS) 

BR IF YES 

CRD2PAS)? 

BR IF YES 

TAKE THE ERROR EXIT 

ERROR DUE TO "CLEAR LEADER"? 

BR IF YES 

TAKE ERROR RETURN 

RETURN 



TAU BASIC LOGIC TEST (PART 2) 
DZTABC.NEW TYPE ROUTINE 



MAINDEC-11"DETAB-C 
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2925 








2926 








2927 








2928 








2929 








2930 








2931 








2932 








2933 








2934 








2935 








2936 








2937 








2938 








2939 








2940 








2941 








2942 


015152 


105767 


164001 


2943 


015156 


100002 




2944 


015160 


000000 




2945 


015162 


000407 




2946 


015164 


010046 




2947 


015166 


017600 


000002 


2948 


015172 


112046 




2949 


015174 


001005 




2950 


015176 


005726 




2951 


015200 


012600 




2952 


015202 


062716 


000002 


2953 


015206 


000002 




2954 


015210 


122716 


0000U 


2955 


015214 


001430 




2956 


015216 


122716 


000200 


2957 


015222 


001006 




2958 


015224 


005726 




2959 


015226 


104401 




2960 


015230 


001177 




2961 


015232 


105067 


000130 


2962 


015236 


000755 




2963 


015240 


004767 


000056 


2964 


015244 


126726 


163706 


2965 


015250 


001350 




2966 


015252 


016746 


163676 


2967 








2968 


015256 


105366 


000001 


2969 


015262 


002770 




2970 


015264 


004767 


000032 


2971 


015270 


105367 


000072 


2972 


015274 


000770 




2973 








2974 








2975 








2976 


015276 


112716 


000040 


2977 


015302 


004767 


000014 


2978 


015306 


132767 


000007 


2979 


015314 


001372 




2980 


01531b 


005726 





,SBTTL TYPE ROUTINE 

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A B^TE, 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



*NOTEl! 
»NOTE2 5 
«N0TE3! 

»CALL: 

»1) USING A 

« TYPE 

«0R 

« TYPE 

» MESADR 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



TRAP INSTRUCTION 
, MESADR 



60$: 

3S: 



BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 



$TPFLG 
IS 

3$ 

R0,-(SP) 

§2(SP),R0 

(R0)+,-(5P) 

4$ 

(SP) + 

CSP)+,R0 

#2,(SP) 

»HT,(SP) 

8S 

#CRLF,(SP) 

5S 

(SP)* 



SCHARCNT 

2S 

PCSTYPEC 

SFiLLCCSP)* 

2$ 

SNULL, -CSP) 

KSP) 

6$ 

PCSTYPEC 

SCHARCNT 

7$ 



JHORIZONTAL TAB PROCESSOR 



8$: 
9S! 



MOVB 

JSR 

BITB 

BNE 

TST 



#• fCSP) 

PCSTYPEC 

#7, SCHARCNT 

9$ 

(SP)4- 



;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;?1S THERE A TERMINAL? 

t;BR IF YES 

;jHALT HERE IF NO TERMINAL 

; jLEAVE 

?}SAVE R0 

jyGET ADDRESS OF ASCIZ STRING 

yiPUSH CHARACTER TO BE TYPED ONTO STACK 

i',BU IF IT ISN'T THE TERMINATOR 

;;IF TERMINATOR POP IT OFF THE STACK 

?JPEST0RE R0 

j;ADJUST RETURN pC 

;;RETURN 

jjBRANCH IF <HT> 

jjBRANCH IF NOT <CRLF> 

i;POP <CR><LF> EQUIV 
yjTYPE A CR AND LF 

;;CLEAR CHARACTER COUNT 

j?GET NEXT CHARACTER 

;;G0 TYPE THIS CHARACTER 

;;1S IT TIME FOR FILLER CHARS,? 

jjIF NO GO GET NEXT CHAR, 

jjGEI # OF FILLER CHARS, NEEDED 

;jAND THE NULL CHAR, 

jjDOES A NULL NEED TO BE TYPED? 

JtBR IF NO--GO POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

?;D0 NOT COUNT AS A COUNT 

;;LOOP 



;;REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
JjBRANCH IF NOT AT 
jjTAB STOP 
IJPOP SPACE OFF STACK 



TAU BASIC LOGIC TEST (PART 2) 
DZTABC.NEW TYPE ROUTINE 



MAINDEC-U-.DZTA8-C 
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2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 



015320 
015322 
015326 
015330 
015336 
015344 
015346 
015352 
015354 
015362 
015364 
015366 
015370 



015372 
015374 
015402 
015404 
015406 
015410 
015412 
015414 
015416 
015420 
015422 
015424 
015426 
015430 
015432 
015434 
015436 
015440 
015444 
015446 
015450 
015452 
015456 
015462 
015464 
015466 
015470 
015472 



000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 



000207 



011646 
016666 
010046 
010146 
010246 
104410 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
010166 
010267 
012602 
012601 
012600 
000002 



000002 
000015 



000012 000002 IS 



000012 
000010 



BR 
STYPECj TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEQ 
INCH 
SCHARCNT! ,WORD 
STYPEXs RTS 



2S 

0STPS 

STYPEC 

2CSP),8$TPB 

#CR,2(SP) 

IS 

SCHARCNT 

STYPEX 

#LF,2(SP) 

STYPEX 

(PC) + 



PC 



IJGET NEXT CHARACTER 

JJWAIT UNTIL PRINTER IS READY 

IJLOAO CHAR TO BE TYPED INTO DATA REG, 

jjIS CHARACTER A CARRIAGE RETURN? 

yjBRANCH IF NO 

;jYES--CLEAR CHARACTER COUNT 

;;EXIT 

;jIS CHARACTER A LINE FEED? 

JjBRANCH IF YES 

jjCOUNT THE CHARACTER 

jjCHARACTER COUNT STORAGE 



,SBTTL READ AN OCTAL NUMBER FROM THE TTY 

J J »*««»■»«»»«.»»»«» s**********^*****^******************^* «*#»«.*«*»* 

J*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

j*CHANGE IT TO BINARY, 

|*CALLs 

',» RDOCT IJREAD AN OCTAL NUMBER 

j« RETURN HERE jjLOW ORDER BITS ARE ON TOP OF THE STACK 

l« JJHIGH ORDER BITS ARE IN SHIOCT 

JJPROVIDE SPACE FOR THE 

J J INPUT NUMBER 

JJPUSH R0 ON STACK 

JJPUSH Rl ON STACK 

JJPUSH R2 ON STACK 

jjREAD AN ASCIZ LINE 

JjGET ADDRESS OF 1ST CHARACTER 

JJCLEAR DATA WORD 

JPICKUP THIS CHARACTER 

J IF ZERO GET OUT 

J»2 



JJSTRIP THE ASCII JUNK 

IJADD IN THIS DIGIT 

J J LOOP 

jjCLEAN TERMINATOR FROM STACK 

J J SAVE THE RESULT 

JJPOP STACK INTO R2 

IJPOP STACK INTO Rl 

jjPOP STACK INTO R0 

n RETURN 

jjHIGH ORDER BITS GO HERE 



,ENABL LSB 



SRDOCTS 


MOV 


(SP),-(SP) 


000002 


MOV 


4(SP),2(SP) 




MOV 


R0,"(SP) 




MOV 


R1,«'{SP) 




MOV 


R2,-(SP) 


155 


RDLIN 






MOV 


(SP)<J-,R0 




CLR 


Rl 




CLR 


R2. 


2S: 


MOVB 


(R0)*,-(SP) 




BEQ 


3S 




ASL 


Rl 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




BIC 


S"C7,(SP) 




ADD 


CSP)+,R1 




BR 


2S 


38! 


TST 


(SP)-}. 




MOV 


RlrUCSP) 




MOV 


R2, SHIOCT 




MOV 


(SP)+,R2 




MOV 


(SP)t,Rl 




MOV 


(SP)+,R0 




RTI 




SHIOCTs 


,WORD 





.SBTTL 


TTY INPUT ROUTINE 



TAll BASIC LOGIC TEST (PART 2) MAINDEC»1 l"DETAi-C 
DZTABC.NEW TTY INPUT ROUTINE 
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3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 



515474 
915502 
915504 
815510 
315512 
915516 
315522 
315526 
315530 
315536 

315540 
315544 
i>15550 
315554 
315556 
015562 
015564 
015566 
015572 

015574 

015600 



022767 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
126727 
001456 

104401 
104401 
016746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 



000176 163436 



163430 
177600 



163400 000001 



016221 
016226 
162422 



163346 
177600 



015604 021627 000025 

015610 001005 

015612 104401 016214 

015616 062706 000006 

015622 000757 



5624 
5630 
5632 
5636 
5640 
5646 
5652 
5656 
5664 
5666 
5674 
5676 
5702 
5706 
5710 
5714 
5716 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
126727 
001003 
012777 
000002 
004767 
021627 
002420 
021627 
003015 
042726 



;»SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

|»ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TR/ P CALL 

;«WHEN OPERATING IN TTY FLAG MODE, 

;jIS THE SOFT-SWR SELECTED? 

;;BRANCH IF NO 

jjCHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

jjSAVE THE CHAR 

;;STRIP-OFF THE ASCII 

;;IS IT A CONTROL G? 

;',nO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODL? 

fjBRANCH IF YES 

jjECHO THE CONTROL-G CG) 

jjTYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;jGO TYPE — OCTAL ASCIKALL DIGITS) 

;; PROMPT FOR NEW SWR 

I5CLEAR COUNTER 

•;THE NEW SWR 

jjCHAR THERE? 

y JIF NOT TRY AGAIN 



SCKSWRs 


CMP 


#SWREG,SWR 




BNE 


15S 




TSTB 


0STKS 




BPL 


15S 




MOVE 


g$TKB,»(SP) 




BIC 


#-C177,CSP) 




CMP 


#7,(SP)+ 




BNE 


15$ 




CMPB 


$AUT0B,«1 




BEQ 


15$ 




TYPE 


,SCNTLG 


SGTSWR; 


TYPE 


,SMSWR 




MOV 


SWREG, -(SP) 




TYPOC 






TYPE 


,$MNEW 


19S: 


CLR 


-(SP) 




CLP 


-(SP) 


7s: 


TSTB 


&STKS 




BPL 


7S 



000002 163272 

000006 

001177 

163253 000001 

000100 163250 

177420 
000060 



11$: 
14$: 



15s: 
16$: 



MOVb @STKB,'»'(SP) 
BIC i^"C177,(SP) 



CMP 

BNE 

TYPE 

ADD 

BR 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSP 

CMP 

BLT 

CMP 

BGT 

BIC 



(SP),#25 

10$ 

,$CNTLU 

#6,SP 

19$ 



(SP),#15 

16S 

4(SP) 

US 

2(SP),^SWR 

#6,SP 

,$CRLF 

SINTAG,#1 

15$ 

#100,P$TKS 

PCSTYPEC 

(SP),#60 

I8S 

(SP),»67 

18$ 

»60,(SP)+ 



; jPICK UP CHAR 
{•MAKE IT 7-BIT ASCII 



jjIS IT A CONTROL-U? 
;;BRANCH IF NOT 
?;YES, ECHO CONTROL-U ("U) 
j;IGNORE PREVIOUS INPUT 
IjLET'S TRY IT AGAIN 



IS IT A <CR>? 

BRANCH IF NO 

YES, 15 IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 



TAIS BASIC LOGIC TEST (PART 2) MAINDEC-l 1-DETAB-C 
DZTABC.NEW TTX INPUT ROUTINE 



3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 



015722 
015726 
015730 
015732 
015734 
015736 



005766 
001403 
006316 
006316 
006316 
005266 



015742 056616 
015746 000707 



015750 
015754 



104401 
000720 



015756 
015760 
015766 
015772 
015774 
016002 
016010 
016016 
016020 
016024 
016026 
016032 
016036 
016042 
016044 
016046 
016054 
016056 
016064 
016066 
016074 



016076 
016100 
016104 
016110 
016112 
016114 
016116 



000002 
177776 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 



000004 
163152 

163146 
177600 

)4 



163114 
177600 
!1 



010346 
012703 
022703 
101405 
104407 
112613 
122713 



000004 
000004 
000P23 



000140 
000175 
000040 000004 



016204 
016214 



TST 

BEQ 
ASL 
ASL 
ASL 
INC 
BIS 
BR 



18S: 
.DSABL 
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2(SP) JJIS THIS THE FIRST CHAR 

17S J, 'BRANCH IF YES 

(SP) JJNO, SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) J} ROOM FOR NEW ONE, 

2(SP) ;;KEEP COUNT OF CHAR 

«2(SP),(SP) jfSET IN NEW CHAR 

7$ jjGET THE NEXT ONE 

,$QUES JITYPE ?<CR><LF> 

20S jjSIMULATE CONTROL-U 



«THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

»CALLs 

* RDCHR J ; INPUT A SINGLE CHARACTER FROM THE TTY 

» RETURN HERE j {CHARACTER IS ON THE STACK 

« ;;WITH PARITY BIT STRIPPED OFF 



SRDCHRj MOV 
MOV 

is: TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 

2S! TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
BR 

3$: CMP 
BLT 
CMP 
BGT 
BIC 

4S! RTI 

• )»»*•&»■»#»»«■«» 

{»THIS ROUTINE 

;«CALL; 

{» RDLIN 

;•» RETURN 



SRDLINl 
i$: 

2$5 



MOV 

MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMPB 



(SP),-(SP) 

4(SP),2(SP) 

fSTKS 

1$ 

9$TK8,4(SP) 

«-C<177>,4CSP) 

4(SP),823 

3$ 

§STKS 

2$ 

&$TKB,-(SP) 

S-C177,(5P) 

(SP)+,»21 

2S 

IS 

4(SP),»140 

4$ 

4(SP),#175 

4$ 

S40,4(SP) 

!•■»■#»«»«■«■*»»««»«•«■»* 

WILL INPUT A STRI 



R3,-'(SP) 
#$TTYIN,R3 
#$TTYIN+8,, 
4S 



(SP)-! 
#177, 



»(R3) 
(R3) 



J PUSH DOWN THE PC 

J SAVE THE PS 

JWAIT FOR 

JA CHARACTER 

jREAD THE TTY 

JGET RID OF JUNK IF ANY 

{IS IT A CONTROL-S? 

{BRANCH IF NO 

{WAIT FOR A CHARACTER 

{LOOP UNTIL ITS THERE 

{GET CHARACTER 

{MAKE IT 7-BIT ASCII 

{IS IT A CONTROL-Q? 

{IF NOT DISCARD IT 

{YES, RESUME 

{IS IT UPPER CASE? 

{BRANCH IF YES 

{IS IT A SPECIAL CHAR? 

{BRANCH IF YES 

{MAKE IT UPPER CASE 

{GO BACK TO USER 

NG FROM THE TTY 

{{INPUT A STRING FROM THE TTY 

{{ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

{{TERMINATOR WILL BE A BYTE )F ALL 0'S 

{{SAVE R3 

{{GET ADDRESS 

{{BUFFER FULL? 

{{BR IF YES 

I {GO READ ONE CHARACTER FROM THE TTY 

{{GET CHARACTER 

{{IS IT A RUBOUT 



TAll BASIC LOGIC TEST (PART 2) MAlNDEC-1 1-DZTAB-C 
DZTABC.NEW TTY INPUT ROUTINE 
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3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 



016122 
016124 
016130 
016132 
016136 
016142 
016146 
016150 
016154 
016160 
016162 
016164 
016172 
016200 
016202 
016203 
016204 
016214 
016221 
016226 
016234 
016237 
016244 



016250 
016254 
016262 
016266 
01b272 
016274 
016302 
016310 



001003 
104401 
000763 
U1367 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 
000 
000 
000010 

052536 
136 

005015 

020075 
040 

036440 



000044 
016202 
000015 

177777 
001200 



005015 
006507 
053523 
000 
047040 
000040 



000002 
000004 



000012 
020122 



017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 



9S8 

STTYIN: 
SCNTLU! 
SCNTLG: 
SMSWRS 



000000 
000001 
000207 

000002 



BNE 

TYPE 

BR 

HOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

HOV 

RTl 

.BYTE 

,BYTE 

,BLKB 

.ASCIE 

,ASC1Z 

,ASCIZ 



3S 

,$QUES 

IS 

(R3)f9S 

#9S 

»15,CR3)+ 

2$ 

~1{R3) 

,SLF 

(SP)+,R3 

CSP),"(SP) 

4(SP),2(SP) 

#$TTYIN,4(SP} 





8. 

/"U/<15><12> 

/•G/<15><12> 

<15><12>/SWR 



;jSKIP IF NOT 

yjCLEAR THE BUFFER AND LOOP 
jjECHO THE CHARACTER 

;;CHECK FOR RETURN 

jjLOOP IF NOT RETURN 

yjCLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;;RESTORE R3 

J ; ADJUST THE STACK AND PUT ADDRESS OF THE 

j; FIRST ASCII CHARACTER ON IT 

J? RETURN 

yjSTORAGE FOR ASCII CHAR« TO TYPE 

;;TERMINATOR 

; {RESERVE 8 BYTES FOR TTY INPUT 

jfCONTROL "U" 

jfCONTROL "G" 



SMNEW; ,ASCIZ / NEW = / 

.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

»THIS ROUTINE IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 6-DIGIT 

»OCTAL (ASCII) NUMBER AND TYPE IT, 

«STYPOS«— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

»CALL! 

« MOV NUM,-CSP) • {NUMBER TO BE TYPED 

« TYPOS ;|CALL FOR TYPEOUT 

« .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

« IbyTE M ;;M=1 OR 

^ ;||=TYPE LEADING ZEROS 

* JJ0SSUPPRESS LEADING ZEROS 

»$TYPON-»»»ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

«STYPOS OR STYPOC 

»CALLS 

« MOV NUM,»(SP) jjNUMBER TO BE TYPED 

* TYPON jyCALL FOR TYPEOUT 

«$TYPOC— "ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
«CALL! 

* MOV NUM»-(SP) jjNUMBEB TO BE TYPED 
« TYPOC jjCALL FOR TYPEOUT 



000006 
000005 



000171 
000165 
000154 



STYPOSj MOV 
MOVB 
MOVE 
ADD 
BR 

ITYPOCS MOVB 
MOVB 

STYPON: MOVB 



0(SP),-(SP) 

1(SP)»S0FILL 

(SP)+»S0M0DE+1 

#2,(SP) 

STYPON 

#1,S0FILL 

#6,S0M0DE+l 

S5#S0CNT 



{PICKUP THE MODE 
{LOAD ZERO FILL SWITCH 
•NUMBER OF DIGITS TO TYPE 
{ADJUST RETURN ADDRESS 

{SET THE ZERO FILL SWITCH 
{SET FOR SIX(6) DIGITS 
{SET THE ITERATION COUNT 



TAli BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB»C 
DZTABC.NEW BINARY TO OCTAL (ASCII) AND TYPE 
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3205 


016316 


010346 






MOV 


R3,-(SP) 


3206 


016320 


010446 






MOV 


R4,»(SP) 


3207 


016322 


010546 






MOV 


R5#"(SP) 


3208 


016324 


116704 


000145 




MOVB 


$0M0DE+1,R4 


3209 


016330 


005404 






NEG 


R4 


3210 


016332 


062704 


000006 




ADD 


#6,R4 


3211 


016336 


110467 


000132 




MOVB 


R4,$0M0DE 


3212 


016342 


116704 


000125 




MOVB 


$0FILLrR4 


3213 


016346 


016605 


000012 




MOV 


12(SP),R5 


3214 


016352 


005003 






CLR 


R3 


3215 


016354 


006105 




1$: 


ROL 


R5 


3216 


016356 


000404 






BR 


3$ 


3217 


016360 


006105 




2S: 


ROL 


R5 


3218 


016362 


006105 






ROL 


R5 


3219 


016364 


006105 






ROL 


R5 


3220 


016366 


010503 






MOV 


R5,R3 


3221 


016370 


006103 




3S! 


ROL 


R3 


3222 


016372 


105367 


000076 




DECB 


SOMODE 


3223 


016376 


100016 






BPL 


7$ 


3224 


016400 


042703 


177770 




BIC 


S177770,R3 


3225 


016404 


001002 






BNE 


4S 


3226 


016406 


005704 






TST 


R4 


3227 


016410 


001403 






BEQ 


5S 


3228 


016412 


005204 




4$: 


INC 


R4 


3229 


016414 


052703 


000060 




BIS 


1*0, R3 


3230 


016420 


052703 


000040 


5SS 


BIS 


#' ,R3 


3231 


016424 


110367 


000040 




MOVB 


R3,8S 


3232 


016430 


104401 


016470 




TYPE 


,8$ 


3233 


016434 


105367 


000032 


7$! 


DECB 


SOCNT 


3234 


016440 


003347 






BGT 


2S 


3235 


016442 


002402 






BLT 


6S 


3236 


016444 


005204 






INC 


R4 


3237 


016446 


000744 






BR 


2S 


3238 


016450 


012605 




6$S 


MOV 


(SP)+,R5 


3239 


016452 


012604 






MOV 


(SP)+,R4 


3240 


016454 


012603 






MOV 


CSP)4',R3 


3241 


016456 


016666 


000002 000004 


MOV 


2(SP),4(SP) 


3242 


016464 


012616 






MOV 


(SP)4-,(SP) 


3243 


016466 


000002 






RTI 




3244 


016470 


000 




8$; 


.BYTE 





3245 


016471 


000 






,BYTE 





3246 


016472 


000 




SOCNTS 


,BYTE 





3247 


016473 


000 




$0FILLl 


„BYTE 





3248 


016474 


000000 




SOMODEs 


.WORD 






{SAVE R3 
{SAVE R4 
{SAVE H5 
{GET THE NUMBER OF DIGITS TO TYPE 

{SUBTRACT IT FOR MAX, ALLOWED 
{SAVE IT FOR USE 
{GET THE ZERO FILL SWITCH 
{PICKUP THE INPUT NUMBER 
{CLEAR THE OUTPUT WORD 
{ROTATE MSB INTO "C 
{GO DO MSB 
{FORM THIS DIGIT 



{{GET LSB OF THIS DIGIT 

{{TYPE THIS DIGIT? 

{{BR IF NO 

{{GET RID OF JUNK 

•{TEST FOR 

{{SUPPRESS THIS 0? 

{{BR IF YES 

{{DON'T SUPPRESS ANYMORE 0''S 

{{MAKE THIS DIGIT ASCII 

{{MAKE ASCII IF NOT ALREADY 

{{SAVE FOR TYPING 

{{GO TYPE THIS DIGIT 

{{COUNT BY 1 

{{BR IF MORE TO DO 

{{BR IF DONE 

{{INSURE LAST DIGIT ISN'T A BLANK 

{{GO DO THE LAST DIGIT 

{{RESTORE R5 

{{RESTORE R4 

{{RESTORE R3 

{{SET THE STACK FOR RETURNING 

{{RETURN 

{{STORAGE FOR ASCII DIGIT 

{{TERMINATOR FOR TYPE ROUTINE 

{{OCTAL DIGIT COUNTER 

{{ZERO FILL SWITCH 

{{NUMBER OF DIGITS TO TYPE 



TAU BASIC LOGIC TEST (PART 2) 
DZTRBC^NEW TRAP DECODER 



MAINDEC-ll^DZTAB-^C 
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3249 






3250 






3251 






3252 






3253 






3254 






3255 






3256 






3257 


016476 


010046 


3258 


016500 


016600 


3259 


016504 


005740 


3260 


016506 


111000 


3261 


016510 


006300 


3262 


016512 


016000 


3263 


016516 


000200 


3264 






3265 






3266 






3267 






3268 


016520 


0U646 


3269 


016522 


016666 


3270 


016530 


000002 


3271 






3272 






3273 






3274 






3275 






3276 






3277 






3278 






3279 


016532 


016520 


3280 


016534 


015152 


3281 


016536 


016274 


3282 


016540 


016250 


3283 


016542 


016310 


3284 






3285 


016544 


015544 


3286 






3287 


016546 


015474 


3288 


016550 


015756 


3289 


016552 


016076 


3290 


016554 


015372 


3291 


016556 


013046 


3292 


016560 


013152 



sSBTTL TRAP DECODER 

j#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE «TRAp« INSTRUCTION 

j»AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

j»OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
j»GO TO THAT ROUTINE^ 



STRAPS 


MOV 


P0,»(SP) 




jfSAVE R0 




MOV 


2(SP),R0 




jjGET TRAP ADDRESS 




TST 


»(R0) 




jjBACKUP BY 2 




HOVB 


(R0),R0 




jjGET RIGHT BYTE OF TRAP 




ASL 


R0 




^POSITION FOR INDEXING 




MOV 


$TRPAD(R0) 


R0 


n INDEX TO TABLE 




RTS 


R0 




IjGO TO ROUTINE 



jjTHIS IS USE TO HANDLE THE "GETPRl" MACRO 







$TRAP2l 


MOV 


(SP),»(SP) 


jjMOVE THE PC DOWN 


000004 


000002 




MOV 
RTI 


4(SP),2(SP) 


jjMOVE THE PSW DOWN 
yjRESTORE THE PSW 



.SBTTL TRAP TABLE 

|«THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
j*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 



STRAP2 
j;CALL=TYPE 
j;CALL=TYPOC 
; |CALL=TYPOS 
J jCALL=TYPON 



TRAP-I-K 104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAPt4(104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



SGTSWR ijCALLsGTSWR 



TRAP+5(104405) GET SOFT»SWR SETTING 



SCKSWR 
SRDCHR 
SRDLIN 
SRDOCT 



WAIT. ON. READY 



jlCALLsCKSWR 
J jCALLsRDCHR 
j;CALL=RDLIN 
jjCALLsRDOCT 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TRAP4-10(104410) TTY TYPEIN STRING ROUTINE 
TRAP4-11(1044U) READ AN OCTAL NUMBER FROM TTY 



TRAP+b(104406) 
TRAP*7(104407) 



jCALLsiWAITREADY 



TRAP4-12(1044i2) WAIT ON THE READY BIT TO 



WAIT, FOR. XFER ; f CALL=WAITXFER TRAP+13( 10441 3) WAIT ON XFER REG. 
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3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 



.SBTTL POWER DOWN AND UP ROUTINES 



016562 
016570 
016576 
016600 
016602 
016604 
016606 
016610 
016612 
016616 
016622 
016630 
016632 



016634 
016642 
016646 
016652 
016656 
016660 
016664 
016666 
016670 
016672 
016674 
016676 
016700 
016706 
016714 
016716 
016720 
016722 
016724 
016726 
016730 
016732 
016734 
016742 



2737 
2737 
0046 
0U6 
0246 
0346 
0446 
0546 
7746 
0667 
2737 



01672b 
000340 



162322 

000110 
016634 



012737 016726 

016706 000064 

005067 

005267 

001375 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

012737 

104401 

016734 

012716 

002206 

000002 



000776 



000024 
000026 



I POWER 
SPWRDN! 



DOWN 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



ROUTINE 

«$ILLUP#@#PWRVEC jfSET FOR FAST UP 
#340,9#PWRVEC-«-2 |;PRI0:7 



JPOWER 
SPWRUP 



016562 

000340 



005015 047520 
000122 



000024 
000026 



SPWRMG; 

IPWRADs 

SILLUPS 

$SAVR6f 
SPOWERs 



UP ROUTI 
MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.WORD 
MOV 
.WORD 
RTI 
HALT 
BR 



R0,"(SP) 

R1,"(SP) 

R2,»(SP) 

R3,-(SP) 

R4,»(SP) 

R5»"(SP) 

§SWR,»(SP) 

SP,$SAVR6 

ffSPWRUP,P#PWRVEC 

«"2 

NE 
#SILLUP#9«PWRVEC 
SSAVR6,SP 
SSAVR6 
$SAVR6 
1$ 

(SP)*,iSWR 
(SP)4>,R5 
(SP)*,R4 
(SP)4-,R3 
(SP)+,R2 
(SP)+,R1 
(SP)t,R0 

«SPWRDN,&#PWRVEC 
#340,@»PWRVEC-«-2 



SPOWER 

(PC) + asp) 

PWRST 



,"2 

eASCIZ <15><12>''POWER'' 



I, 'PUSH R0 ON STACK 
;;PUSH Rl ON STACK 
?}PUSH R2 ON STACK 
J, 'PUSH R3 ON STACK 
J ; PUSH R4 ON STACK 
yjPUSH R5 ON STACK 
JJPUSH eSWR ON STACK 
lySAVE SP 

ISET UP VECTOR 

IjHANG UP 

??SET FOR FAST DOWN 

JGET SP 

JWAIT LOOP FOR THE TTY 

fWAlT FOR THE INC 

|0F WORD 

;POP STACK INTO gSWR 

JPOP STACK INTO R5 

JPOP STACK INTO R4 

;POP STACK INTO R3 

JpOp STACK INTO R2 

IPOP STACK INTO Rl 

IPOP STACK INTO R0 

nSET UP THE POWER DOWN VECTOR 
J jPRIOn 
fREPORT THE POWER FAILURE 
yiPOWER FAIL MESSAGE POINTER 
J I RESTART AT PWRST 
; f RESTART ADDRESS 

?|THE POWER UP SEQUENCE WAS STARTED 
1 1 BEFORE THE POWER DOWN WAS COMPLETE 
jjPUT THE SP HERE 
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3338 


016744 


042200 


044522 


042526 


MSGDRV! 


.ASCIE 


<CRLF>»DRIVE(S)? » 


3339 


016752 


051450 


037451 


000040 








3340 


016760 


005015 


040524 


051503 


MSGASKs 


,ASCIE 


<15><12>/TACS?/ 


3341 


016766 


000077 












3342 


016770 


042526 


052103 


051117 


MSGVEC: 


.ASCIZ 


/VECTOR?/ 


3343 


016776 


000077 












3344 


017000 


051120 


047511 


044522 


MSGPRIS 


.ASCIZ 


/PRIORITY?/ 


3345 


017006 


054524 


000077 










3346 


017012 


040524 


051503 


000075 


MTACS! 


, ASCIZ 


/TACS=/ 


3347 


017020 


052040 


042101 


036502 


MTAD8: 


.ASCIZ 


/ TADBs/ 


3348 


017026 


000 












3349 


017027 


040 


042526 


052103 


MTAVECs 


«ASCIZ 


/ VECTORS/ 


3350 


017034 


051117 


000075 










3351 


017040 


050040 


044522 


051117 


MTAPRI! 


»ASCIZ 


/ PPIORITYs/ 


3352 


017046 


052111 


036531 


000 








3353 


017053 


015 


047412 


037513 


msgok; 


, ASCIZ 


<15><12>/0K?/ 


3354 


017060 


000 












3355 


017061 


131 


051505 


000200 


MYES! 


.ASCIZ 


/YES/<CRLF> 


3356 


017066 


052123 


052101 


051525 


EMl! 


, ASCIZ 


/STATUS PROBLEM/ 


3357 


017074 


050040 


047522 


046102 








3358 


017102 


046505 


000 










3359 


017105 


042 


042522 


042101 


EM2S 


.ASCIZ 


/"READY" FAILED TO SET/ 


3360 


017112 


021131 


043040 


044501 








3361 


017120 


042514 


020104 


047524 








3362 


017126 


051440 


052105 


000 








3363 


017133 


042 


051124 


047101 


EM3! 


.ASCIE 


/"TRANSFER REQUEST" FAILED TO 


3364 


017140 


043123 


051105 


051040 








3365 


017146 


050505 


042525 


052123 








3366 


017154 


020042 


040506 


0461U 








3367 


017162 


042105 


052040 


020117 








3368 


017170 


042523 


000124 










3369 


017174 


044124 


020105 


051127 


EM4: 


.ASCIZ 


/THE WRONG FLAG SET/ 


3370 


017202 


047117 


020107 


046106 








3371 


017210 


043501 


051440 


052105 








3372 


017216 


000 












3373 


017217 


104 


052101 


020101 


EM5S 


»ASCIZ 


/DATA PROBLEM/ 


3374 


017224 


051120 


041117 


042514 








3375 


017232 


000115 












3376 


017234 


047UI 


042524 


051122 


EM6S 


«ASCIZ 


/INTERRUPT PROBLEM/ 


3377 


017242 


050125 


020124 


051120 








3378 


017250 


041117 


042514 


000115 








3379 


017256 


041520 


020040 


020040 


DHl! 


.ASCIZ 


/PC TACS/ 


3380 


017264 


020040 


040524 


051503 








3381 


017272 


000 












3382 


017273 


120 


020103 


020040 


DH2S 


«ASCIZ 


/PC TACS WAIT ADDRESS/ 


3383 


017300 


020040 


052040 


041501 








3384 


017306 


020123 


020040 


053440 








3385 


017314 


044501 


020124 


042101 








3386 


017322 


051104 


051505 


000123 








3387 


017330 


041520 


020040 


020040 


DH5! 


.ASCIZ 


/PC TACS EXPECT RCV'D 


3388 


017336 


020040 


040524 


051503 








3389 


017344 


020040 


020040 


054105 








3390 


017352 


042520 


052103 


020040 








3391 


017360 


041522 


023526 


000104 








3392 


017366 


041520 


020040 


020040 


DH6! 


.ASCIZ 


/PC TACS BR LEVEL/ 


3393 


017374 


020040 


040524 


051503 
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3394 


017402 


020040 


020040 


051102 




3 395 


017410 


046040 


053105 


046105 




3396 


017416 


000 








3397 




017420 






.EVEN 


3398 


017420 


001116 


001162 


000000 


DTU 


3399 


017426 


001116 


00U62 


001202 


DT2: 


3400 


017434 


000000 








3401 


017436 


001116 


001162 


001124 


UT5: 


3402 


017444 


001126 


000000 






3403 


017450 


001116 


001162 


001124 


DT6: 


3404 


017456 


000000 








3405 


017460 


001116 


001206 


000000 


DT201 


3406 












3407 


017466 


001116 


000000 




DT202 


3408 












3409 


017472 


040524 


030461 


043040 


EM201 


3410 


017500 


044501 


042514 


020104 




3411 


017506 


047524 


051040 


051505 




3412 


017514 


047520 


042116 


000 




3413 


017521 


116 


020117 


051104 


EM202 


3414 


017526 


053111 


020105 


053101 




3415 


017534 


044501 


040514 


046102 




3416 


017542 


000105 








3417 


017544 


041520 


020040 


020040 


DH201 


3418 


017552 


020040 


040524 


051503 




3419 


017560 


000 








3420 


017561 


120 


000103 




DH202 


3421 




000001 









,WORD SERRPCf SREG0»0 

.WORD SERRPC,SREG0,SAVPC,0 

.WORD $ERRPC»$REG0#$GDDAT»SBDOAT»0 

.WORD $ERRPC»SREG0»SGDDAT/0 

.WORD $ERRPC,TACSL,0 

.WORD $ERRPC#0 

«ASCIZ "TAli FAILED TO RESPOND" 

.ASCIZ "NO DRIVE AVAILABLE" 

.ASCIE /PC TACS/ 



,ASCIZ /PC/ 
,END 
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ASKADR 


013364 


ASKDRV 


013254 


ASKKEY 


001232 


BEGINX 


001740 


BEGINl 


001336 


BEGIN2 


001370 


BEGIN3 


001376 


BEGIN4 


001404 


BGNCMN 


001410 


BIT0 = 


000001 


BIT00 = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BITl = 


000002 


BIT10 = 


002000 


8ITU = 


004000 


BITi2 = 


010000 


B1T13 = 


020000 


BIT14 = 


040000 


BIT15 s 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BITS = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BIT9 = 


001000 


BLKLIM 


014654 


BPTVECs 


000014 


8SBG = 


000010 


BSFG = 


000006 


BSFGSB 


014512 


CHKADR 


001762 


CHKDFV 


002046 


CKSWR = 


104406 


CR = 


000015 


CRCERR= 


040000 


CRC.WD 


013774 


CRLF = 


000200 


CURDRV 


001234 


DDISP = 


177570 


DHl 


017256 


DH2 


017273 


DH201 


017544 


DH202 


017561 


DH5 


017330 


DH6 


017366 



563 


2512# 














560 


2480# 


2503 












396# 


651# 


681 












557S 


593 


595 


644 


646 








231 


476# 














232 


483# 














233 


482 


485# 












234 


487S 














479 


481 


484 


486 


488# 








166# 
















156# 


166 


208 


2588 


2916 


2918 






155# 


165 


207 


2597 


2918 








154t 


164 


206 












153# 


163 


205 












152» 


162 


204 












151S 


161 


203 












150« 


160 


202 












149# 


159 


201 


2916 


2918 








148$ 


158 


200 


2298 










147# 


157 


199 


2306 


2370 








165# 
















146S 


198 


2354 












145# 


197 


2313 












144# 


196 














143» 


195 


2361 












142# 


194 


2284 


2597 










141# 


193 


662 












164# 
















163# 
















162# 
















161# 
















160» 
















159# 
















158# 
















157# 
















2820* 


2834» 


2841 


2858 










173« 
















186# 


868 


1505 


1589 


1620 


1680 1778 


1783 


1814 


2024 


2163 


2186 












185S 


864 


1447 


1562 


1676 


1731 1739 


1928 


2797 


241 


2794# 


2795 


2802 










559 


562 


581« 












620« 
















2283 


2346 


2369 


3287# 










81# 


2985 


2995 












194# 


1873 


1916 


1992 


2052 








2028» 


2038 


2046 


2585 


2606* 


2613$ 






82« 


545 


2956 


2995 


3338 


3355 






397# 


674» 


675 












88S 


365 


516 












418 


3379S 














424 


430 


436 


3382« 










456 


3417# 














461 


3420S 














442 


3387« 














448 


3392» 















TAll BASIC LOGIC TEST (PART 2) MAINDEC-U-DZTAB-C 
DZTABC.NEW CROSS REFERENCE TABLE — USER SYMBOLS 



MACYU 27(732) n~JUN-76 13:26 PAGE 73 



DISPLA 


001142 


365# 


516® 


524* 


2327» 


2353» 


















DISPRE 


000174 


228# 


524 
























DO,CRC 


013654 


2029 


2S78« 
























DRVKEY 


001224 


394# 
2890 


395 


477* 


620 


633 


654 


679 


2075 


2128 


2481# 


2486 


2500 


2504 


DRVPNT 


001230 


395« 


634« 


654» 


665 


680» 


2884 


2891* 














DSWR = 


177570 


87» 


364 


515 






















DTI 


017420 


419 


3398# 
























DT2 


017426 


425 


431 


437 


3399« 




















DT201 


017460 


457 


3405# 
























DT202 


017466 


462 


3407# 
























DT5 


017436 


443 


34011 
























DT6 


017450 


449 


3403# 
























EMTVECs 


000030 


176# 


499* 


500» 






















EMI 


017066 


417 


3356# 
























EM2 


017105 


423 


3359# 
























EM201 


017472 


455 


3409# 
























EM202 


017521 


460 


3413# 
























EH3 


017133 


429 


3363S 
























EM4 


017174 


435 


3369# 
























EMS 


017217 


441 


3373# 
























EM6 


017234 


447 


3376# 
























ERROR = 


100000 


193# 


1538 


1567 


1736 


1741 


1780 


1873 


2052 












ERRVECs 


000004 


i69» 


513 


514* 


525» 


581» 


587* 


2289 


2290» 


2292* 


2295« 








EXAM 


015046 


621 


625 


630 


2903# 




















EXIT 


013354 


2499 


2504# 
























FGAP = 


004000 


197# 


1449 


1483 


1538 


1564 


1598 


1629 


1660 


1728 


1733 


1775 


1780 




FUNCTIs 


000016 


209# 


























FUNC0 = 


000002 


207« 


209 
























FUNCl = 


000004 


206# 


209 
























FUNC2 = 


000010 


205# 


209 
























GNS = 


*»«»»» u 


227 
3292 


544 


672 


3280 


3281 


3282 


3283 


3285 


3287 


3288 


3289 


3290 


3291 


GO = 


000001 


208# 


303 


306 


325 


328 


693 


710 


712 


731 


733 


771 


773 


782 






784 


823 


825 


827 


1292 


1295 


1303 


1335 


1366 


1368 


1371 


1437 


1439 






1441 


1447 


1467 


1469 


1471 


1477 


1479 


1481 


1495 


1497 


1499 


1505 


1522 






1524 


1526 


1532 


1534 


1536 


1554 


1556 


1562 


1579 


1581 


1587 


1589 


1591 






1593 


1610 


1612 


1618 


1620 


1622 


1624 


1642 


1644 


1646 


1654 


1656 


1658 






1710 


1712 


1714 


1722 


1724 


1726 


1731 


1739 


1757 


1759 


1761 


1769 


1771 






1773 


1778 


1783 


1804 


1806 


1814 


1816 


1839 


1841 


1844 


1859 


1861 


1889 






1891 


1893 


1902 


1904 


1957 


1959 


1967 


1969 


2004 


2006 


2009 


2024 


2026 






2086 


2136 


2138 


2142 


2152 


2163 


2168 


2186 


2193 


2205 


2230 


2636 


2639 






2668 


2691 


2722 


2725 


2750 


2756 


2778 


2781 


2797 


2842 


2860 






GTSWR = 


104405 


539 


687 


2812 


2825 


2831 


3285# 
















HERE 


001740 


530 


532 


543 


545# 




















HGHTIM 


013124 


714 


2423» 


2437# 






















HT = 


000011 


79# 


2954 


2995 






















ILBS = 


000020 


204« 


780 


806 


1445 


1475 


1503 


1530 


1560 


1585 


1616 


1652 


1720 


1767 






1812 


1828 


1854 


1871 


1900 


1911 


1965 


1987 


2019 


2040 


2158 


2181 


2218 






2850 


2871 
























INT.ENs 


000100 


202# 


922 


970 


1018 


1066 


1114 


1162 


1210 


1258 


1303 


1335 


1398 




lOTVECs 


000020 


174# 


497* 


498* 






















ITEHS2 


001316 


453$ 


























LEADERS 


020000 


195# 
2754 


1455 
2758 


1510 
2783 


1538 
2799 


1567 
2921 


1744 


1780 


1788 


2641 


2672 


2695 


2727 


2730 


LF = 


000012 


80# 


2989 


2995 
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LOOP 


013300 


LOOPl 


000500 


L00P2 


000600 


L00P3 


000700 


MANUAL 


002166 


MAXCNT 


013150 


MSGASK 


016760 


MSGDRV 


016744 


MSGID 


001712 


MSGOK 


017053 


MSGPRI 


017000 


HSGVEC 


016770 


MTACS 


017012 


MTADB 


017020 


MTAPRI 


017040 


MTAVEC 


017027 


MYES 


017061 


NEXT 


013334 


NOTA 


013312 


NOTB 


013324 


NOTLGL 


013346 


NXTDRV 


015002 


OFFLINs 


001000 


OK 


002200 


PATTRN 


014656 


PIRQ = 


177772 


PIRQVEs 


000240 


PR0 = 


000000 


PRl = 


000040 


PR2 = 


000100 


PR3 = 


000140 


PR4 s 


000200 


PR5 = 


000240 


PR6 = 


000300 


PR7 = 


000340 


PS = 


177776 


PSW = 


177776 


PWRST 


002206 


PWRVECs 


000024 


RDBLR 


014722 


RDCHR = 


104407 


RDLIN s 


104410 


RDOCT = 


104411 


RDSU8 


014150 


READ = 


000004 


READY = 


000040 


RESVtCs 


000010 


REWINDS 


000016 



RGPBLK 014332 



24879 


2501 
























291» 


292 
























301» 


312 
























323» 


334 
























640 


648# 
























662* 


714» 


715* 


716» 


717» 


2423 


2444# 


2451 












2513 


3340# 
























2480 


3338# 
























533 


5458 


653 






















2560 


3353# 
























2536 


3344# 
























2527 


3342S 
























2548 


33461 
























2551 


3347« 
























2557 


3351S 
























2554 


3349i 
























2569 


3355S 
























2490 


2494 


2498# 






















2488 


2491« 
























2492 


2495# 
























2485 


2496 


2502S 


2505 




















2634 


2666 


2689 


2720 


2748 


2776 


2881# 














199» 


2912 
























649 


65H 
























2821* 


2827* 


28358 


2848 


2859 


















86# 


























180# 


























103» 


























104» 


























105« 


























1061! 


























1078 


























108# 


























109# 


























110» 


























83S 


84 


657« 


914» 


923» 


926# 


962* 


971* 


974» 


1010» 


1019* 


1022* 


1058 


1067* 


1070* 


U06» 


1115» 


IU8» 


U54» 


1163» 


1166» 


1202* 


121l« 


1214* 


1250* 


1259 


1262* 


1297* 


1305» 


1309» 


1327» 


1342* 


1346» 


1396* 


1401# 


1412* 


1415* 






84# 


























653« 


3330 
























175# 


503» 


504« 


3297» 


3298» 


3307* 


3313* 


3325* 


3326* 










2694 


2753 


2858S 






















2561 


3146 


3288S 






















2482 


3010 


3289# 






















2514 


2528 


2537 


3290« 




















237 


2684# 


2688 


2696 




















184# 


328 


784 


860 


1593 


1672 


1816 


1861 


1904 


1969 


2026 


2168 


2205 


2860 


























203# 


304 


311 


326 


333 


694 


1336 


2093 


2097 


2102 


2149 


2201 


2427 


2457 


2637 


2669 


2692 


2723 


2751 


2779 


2844 


2862 


2908 








170# 


























1R9S 


303 


325 


693 


710 


731 


771 


782 


823 


880 


1292 


1335 


1366 


1437 


1467 


1479 


1495 


1522 


1534 


1554 


1579 


1610 


1642 


1656 


1692 


1710 


1724 


1757 


1771 


1804 


1839 


1889 


1944 


1957 


2004 


2086 


2096 


2101 


2136 


2142 


2193 


2230 


2636 


2668 


2691 


2722 


2750 


2778 










239 


2743# 


2747 


2755 


2759 
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SAtfPC 




001202 


SAVPS 




001204 


SETBUF 




014544 


SFBG 


= 


000014 


SFFG 


= 


000012 


SFFGSF 




014426 


STACK 


s 


001100 


START 




002220 


STKLMTs 


177774 


SWR 




001140 


SWREG 




000176 


SW0 


s 


000001 


SW00 


= 


000001 


SW01 


= 


000002 


SW02 


s 


000004 


SW0 3 


s 


000010 


SW04 


= 


000020 


SW05 


= 


000040 


SW06 


= 


000100 


SW07 


= 


000200 


SW08 


= 


000400 


SW09 


s 


001000 


SWl 


s 


000002 


SW10 


s 


002000 


swu 


s 


004000 


SW12 


s 


010000 


SWi3 


s 


020000 


SW14 


s 


040000 


SW15 


s 


100000 


SW2 


= 


000004 


SW3 


= 


000010 


SW4 


s 


000020 


SW5 


5 


000040 


SW6 


s 


000100 


SW7 


s 


000200 


SW8 


s 


000400 


SW9 


s 


001000 


TACSH 




001210 


TACSL 




001206 


TADBH 




001214 


TADBL 




001212 


TAPRIO 


001222 



TAVEC 001216 



TBITVEs 000014 
TDRV 002310 
flMERRs 002000 
TKVEC = 000060 
TPVEC s 000064 



■ 385# 
386# 
2660 
188» 
187# 
240 

74S 
652 

85» 
291 
2313 
2918 
229# 
138# 
128# 
127# 
i26# 
i25# 
124» 
i23» 
122# 
I2iil 
120# 
U9S 
1378 
118# 
117# 
U6# 
U5S 
1141 
U3S 
136# 
1351 
134S 
133# 
1328 
1318 
130# 
129S 
389# 
388» 
3405 
391# 
390# 
393# 
1217 

392# 

1014* 

1159» 

1315» 

2555 

171S 

667 

198S 

178# 

179« 



2424* 

2426* 
2714 
876 
872 
2771# 
495 
655S 



2522* 

583 

2525» 

659 

929 

1221 

480 

1015* 

1183» 

i3l6» 



669# 
759 



2425* 

2440 

2808# 

1536 

1481 

2775 

2629 

2264 



2523* 
658 

2526* 
2521» 

933 
1265 

597» 
1039* 
1184* 
1331* 



2441 
2454* 

1591 
1658 
2786 
2661 



309 364# 493 

2354 2361 2366 

3043 3080* 3305 

523 537 685 

138 
137 
136 
135 
134 
133 
132 
131 
130 
129 



2525 

977 

1269 

655* 
1040* 
1206* 
1332* 



2452* 
2468 



1622 
1684 



2519* 2522 



2552 

981 
2547* 

656® 
1062* 
1207* 
1353* 



1624 
1726 



515* 517 

2370 2810 
3318* 

2810 2823 



2631 
1025 
2558 

918* 
1063* 
1231* 
1354* 



1688 
1773 



523* 
2814 



2663 
1029 

919* 
1087* 
1232* 
1391* 



1940 
1936 



537 
2816 



2756 
2781 



685 
2823 



2284 
2827 



2298 
2829 



2300 
2881 



2306 
2916 



2686 
1073 

943* 
1088* 
1254* 
1392* 



2717 
1077 

944* 
1110* 
1255* 
1410* 



2745 
1121 

966* 

nil* 

1279* 
1420* 



2773 
1125 

967* 
1135* 
1280* 
1421* 



1169 

991* 
1136* 
1299* 
2533* 



1173 

992* 
1158* 
1300* 
2535* 
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TRAPVEs 


000034 


TRTVECs 


000014 


TB»REQs 


000200 


TSTI 


002436 


TST10 


004150 


TSTU 


004352 


TST12 


004554 


TSTU 


004756 


TST14 


005160 


TST15 


005362 


TST16 


005554 


TSTI? 


005750 


TST2 


002516 


TST20 


006246 


TST2I 


006370 


TST22 


006510 


TST23 


006622 


TST24 


006742 


TST25 


007050 


TST26 


007176 


TST27 


007324 


TST3 


002656 


TST30 


007574 


TST31 


010000 


TST32 


010172 


TS133 


010330 


TST34 


010516 


TST35 


010776 


TST36 


011160 


TST37 


011412 


TST4 


003062 


TST40 


011552 


TST41 


012134 


TST5 


003342 


TST6 


003544 


TST7 


003746 


TYPE = 


104401 


TYPEPR 


012730 


TYPOC = 


104402 


TYPON s 


104404 


TYPOS = 


104403 


UNIT - 


000400 


WAITREs 


104412 



WAITXF= 104413 



1771 


50i« 


502» 






















172# 


























20U 


1336 
























691 


704# 
























1053# 


























1101# 


























1149# 


























1197# 


























1245# 


























1286# 


























1322« 


























1360# 


























707 


7251? 
























1431# 


























1434 


1456 


14619 






















1464 


1484 


1489# 






















1492 


1511 


15i6# 






















1519 


1539 


1548» 






















1551 


1568 


1573S 






















1576 


1599 


I604» 






















1607 


1630 


1635# 






















728 


760 


765# 






















1638 


1694 


1703# 






















1706 


1745 


1750# 






















1753 


1789 


1798# 






















1801 


1833S 
























1836 


1874 


1883S 






















1886 


1946 


1951S 






















1954 


1993 


1998S 






















200! 


2053 


2071S 






















768 


812 


817# 






















2074 


2076 


2124# 






















2127 


2129 


2221 


22268 




















820 


882 


909# 






















9571 


























1005s 
533 


653 


670 


675 


676 


2254 


2356 


2364 


2386 


2395 


2397 


2400 


2402 


2406 


2414 


2480 


2502 


2513 


2527 


2536 


2548 


2551 


2554 


2557 


2560 


2567 


2569 


2959 


3054 


3055 


3058 


3071 


3082 


3101 


3150 


3153 


3157 


3232 


3280# 


3327 


























2363 


2386# 
























2411 


2550 


2553 


2556 


2559 


3057 


3281# 














3283S 


























32821 


























200# 


668 


2079 


2080 


2132 


2133 


2887 


2907 












711 


713 


732 


755 


772 


781 


783 


807 


824 


826 


845 


1293 


1296 


1330 


1367 


1369 


1409 


1438 


1440 


1446 


1448 


1468 


1470 


1476 


1478 


1480 


1482 


1496 


1498 


1504 


1506 


1523 


1525 


1531 


1533 


1535 


1537 


1555 


1561 


1563 


1580 


1586 


1588 


1590 


1592 


1594 


1611 


1617 


1619 


1621 


1623 


1625 


1641 


1643 


1645 


1653 


1655 


1657 


1659 


1709 


1711 


1713 


1721 


1723 


1725 


1727 


1732 


1740 


1756 


1758 


1760 


1768 


1770 


1772 


1774 


1779 


1784 


1805 


1813 


1815 


1829 


1840 


1842 


1855 


1860 


1872 


1890 


1892 


1901 


1903 


1912 


1958 


1966 


1968 


1988 


2005 


2007 


2020 


2025 


2047 


2083 


2085 


2105 


2137 


2139 


2141 


2159 


2164 


2182 


2187 


2192 


2204 


2219 


2231 


2640 


2726 


2757 


2782 


2798 


2851 


2872 


329H 


















734 


775 


777 


785 


828 


1304 


1372 


1442 


1444 


1472 


1474 


1500 


1502 
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(PART 2) 


MAINDEC- 


•ll-DZTAB 


"C 




MACYU 


27(732) 


U-JUN- 


76 13:26 


PAGE 


77 




SEQ 0090 


DETABC. 


NEW CROSS 


REFERENCE 


TABLE - 


• USER SYMBOLS 
























1527 


1529 


1557 


1559 


1582 


1584 


1613 


1615 


1647 


1649 


1651 


1715 


1717 






1719 


1762 


1764 


1766 


1807 


1809 


1811 


1817 


1823 


1845 


1847 


1863 


1870 






1895 


1906 


1960 


1962 


1964 


1970 


1975 


1979 


1983 


2010 


2012 


2030 


2039 






2153 


2155 


2157 


2169 


2175 


2180 


2206 


2212 


2217 


2843 


2861 


3292S 




WAIT,F 


013152 


2449!5 


3292 
























WAIT.O 


013046 


2421S* 


3291 
























WAITi 


013076 


2427# 


2435 


2438 






















WAIT2 


013116 


2422* 


2434^ 
























WAIT3 


013132 


2428 


2432 


2440S 






















WAIT4 


013114 


2430 


2433S 
























WFG = 


000000 


182# 


712 


825 


852 


1295 


1368 


1439 


1469 


1477 


1497 


1524 


1532 


1587 






1618 


1644 


1654 


1664 


1712 


1722 


1759 


1769 


1841 


1891 


1920 


2006 


2138 






2639 


2725 
























WFGSUB 


013776 


235 


26298 


2633 


2644 




















WGBLOP 


014234 


2715# 


2719 


2733 






















WGPBLK 


014230 


238 


2714# 
























WLOOP 


014066 


2661# 


2665 


2675 






















WRITE s 


000002 


183S 


306 


733 


773 


827 


856 


1303 


1371 


1441 


1471 


1499 


1526 


1556 






1581 


1612 


1646 


1668 


1714 


1761 


1806 


1844 


1893 


1924 


1959 


2009 


2152 






2842 


























WRTBLK 


014660 


2671 


2729 


2841# 






















WRfLOC= 


010000 


196# 


2914 
























WPTSUB 


014062 


236 


2660# 
























SAUT08 


001134 


36H 


541# 


3051 


3172 




















IBDADR 


001122 


356* 


























SBDDAT 


001126 


358# 


2350* 


3401 






















$BELL 


001172 


380# 


2356 


2382 






















SCHARC 


015366 


2961» 


2971* 


2978 


2987^ 


2992# 


















SCKSWR 


015474 


3043# 


3287 
























SCMTAG 


001100 


344« 


490 


491 


499 


505 


506 


507 














$CM! = 


000002 


376# 


377# 


378# 






















$CM2 s 


000004 


376# 


377S 


378« 






















SCM3 s 


000002 


374S 


376 
























SCNTLG 


016221 


3054 


3167» 
























SCNTLU 


016214 


3071 


3166# 
























SCRLF 


00U77 


382# 


676 


2364 


2382 


2386 


2397 


2402 


2406 


2960 


2995 


3082 


3166 




IDOAGN 


012242 


2250 


2256 


22621 






















$ENDAD 


012232 


531 


596 


647 


2258# 


2377 


















SENDCT 


012212 


505 


2252# 
























SENDMG 


012251 


2254 


2266# 
























SENULL 


012246 


2265# 


























$EOP 


012156 


22421? 


























SEOPCT 


012204 


505» 


2249# 


2253 






















SERFLG 


001103 


347# 


2273 


2302 


2304 


2310*^ 


2331 


2351* 


2382 












SERMAX 


00U15 


353# 


508» 


2304 


2326* 


2331 


















lERROR 


012536 


499 


2345» 
























$ERRPC 


00U16 


354# 


2358» 


2359* 


2360 


2382 


3398 


3399 


3401 


3403 


3405 


3407 






SERRTB 


001236 


412# 


2393 
























SERTTL 


001112 


351# 


2357» 


2382 






















SESCAP 


001170 


379# 


507# 


728* 


768* 


820* 


911» 


959» 


1007» 


1055* 


1103* 


1151* 


1199* 


1247* 






i289« 


1324* 


1363* 


1434* 


1464* 


1492* 


1519* 


1551* 


1576* 


1607* 


1638* 


1706* 


1753* 






1801« 


1836» 


1886* 


1954* 


2001* 


2074* 


2127* 


2325* 


2373 


2375 


2382 






SFILLC 


001156 


372# 


2964 


2995 






















SPILLS 


001155 


37i# 


2995 
























SGDADR 


00U20 


35S# 


























IGDDAT 


001124 


357# 


2349* 


3401 


3403 
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$GET42 


012222 


$GTSWR 


015544 


$HD = 


000000 


SHIOCT 


015472 


SICNT 


001104 


SILLUP 


016726 


SINTAG 


001135 


$ITEMB 


001114 


$LF 


001200 


$LPADR 


001106 


$LPERR 


001110 


SMAIL s 


»»»»#» u 


$MNEW 


016237 


$MSWR 


01622b 


SMXCNT 


012534 


$NULL 


001154 


INWTSTs 


000001 


$OCNT 


016472 


SOMODE 


016474 


SOVER 


012520 


$PASS 


001100 


SPOWER 


016734 


SPtaiRAD 


016722 


SPWPDN 


016562 


SPWRMG 


016716 


SPwIRUP 


016634 


$QUES 


001176 


SRDCHR 


015756 


SRDDECs 


»»«*»» u 


SRDLIN 


016076 


SRDOCT 


015372 


SRDSZ = 


000010 


SREGAD 


001160 


$REG0 


001162 


SREGl 


001164 


SRTNAD 


012244 


SR2A = 


»»»*»» u 


SSAVREs 


»»»»»» u 


$SAVR6 


016732 


SSCOPE 


012264 


SSETUPs 


000137 


SSIUP s 


177777 


SSVLAD 


012472 


SSWR s 


167400 



SSWRMKs 000000 



2255# 
3055# 

U 
3027» 
348« 
3297 
362# 
352S 
383# 
349« 
1288* 
1835* 
350# 
527 
3058 
3055 
2321 
370# 
70l# 
13198 
1830# 
3204* 
3199» 
2285 

345# 
3328 
3330S? 

503 
3328# 
3307 

381» 
3114# 
3291 
3142» 
3005» 
3135# 
374S 
376# 
377# 
2264« 
3291 
3291 
3306* 
497 
476« 
2283 

476# 
2293 

507 
1198 
1704 
2263 
2304 
2361 
68 



3285 

30328 

2317« 

3313 

3083 

2360* 

2382 

509* 
1362* 
1885* 

510» 

537 
31708 
3168# 
2330# 
2966 

722# 
13578 
i880# 
3233* 
3203* 
2301 

660 
3335# 

3297# 

3313# 

2382 

3288 

3289 
3290 



2347* 
2348* 



3314 
2282ft 

496 
2346 

23221! 

U 

509 

1246 

1751 

2265 

2311 

2366 

69 



2318 

3332» 

3172 

2382 

2995 

727* 
1433* 
1953* 
2308 
2323 



2995 

762# 
1428« 
1948» 
3246S 
3208 
2309 
706 



497 
2369 



62 
510 
1287 
1799 
2274 
2312 
2370 
2278 



2320« 2330 



2388 
3157 

767« 
1463* 
2000* 
2324» 
2366 



814# 
1458# 
1995# 

3211» 

2319 

2246» 



499 
2377 



63 
705 
1323 
1834 
2275 
2313 
2382 
2279 



3166 

819» 
149i» 
2073* 
2330 
2948 



906S 
1486# 
20689 

3222* 

2327# 
2247» 



501 
3038 



64 
726 
1361 
1884 
2276 
2324 
3331 
2300 



910» 958» 

1518» 1550* 

2126» 2308* 

2372 2633* 



954# 1002# 
15138 i545# 
2121# 2223# 



3248$ 
2265 



503 
3172 



65 
766 
1432 
1952 
2277 
2327 



66 
818 
1462 
1999 
2278 
2330 



1006* 


1054* 


1102* 


1150* 


1198* 


1246* 


1575* 


1606* 


1637* 


1705* 


1752* 


1800* 


2323* 


2328 


2330 








2665* 


2688* 


2719* 


2747* 


2775* 


2795* 



i050# 


1098S 


n46# 


1194# 


1242# 


1283# 


1570* 


1601# 


1632# 


1700$ 


1747# 


1795# 



67 
910 
1490 
2072 
2284 
2337 



68 
958 
1517 
2125 
2296 
2338 



378 
1006 
1549 
2227 
2298 
2339 



379 
1054 
1574 
2237 
2299 
2340 



380 
1102 
1605 
2245 
2302 
2341 



506 
1150 
1636 
2257 
2303 
2354 
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STKB 
STKS 
STN 



00U46 
00U44 
000042 



$TPB 


001152 


STPFLG 


001157 


$TPS 


001150 


STRAP 


016476 


STRAP2 


016520 


STRP = 


000014 


STRPAD 


016532 


STSTNM 


001102 


STTYIN 


016204 


STYPBNs 


«■«»*■»» u 


$TYPDS= 


»*»»«* u 


$T)(PE 


015152 


STYPEC 


015322 


STYPEX 


015370 


STYPOC 


016274 


STYPON 


016310 


$TiPOS 


016250 


SXTSTR 


012276 


$SGET4s: 


000000 


S0FILL 


016473 


$40CATs 


*»«»«» u 


= 


017564 



378!« 
1549» 
2227* 
367# 
366# 
1# 
814 
1102# 
1428 
1517# 
1607 
1789 
1952« 
2127 
369# 
373# 
368# 
501 
3268# 
3272# 
3293» 
3262 

346« 
3143 
3284 
3284 
2942# 
2963 
2988 
32028 
3201 
3197* 
2287# 
2257« 
3198* 
2284 

223# 
2268 



506* 
1574* 
2245* 
3036 
3036 
U 

818# 
1146 
1432# 
1519 
1630 
1795 
1954 
2129 
2984* 
2942 
2982 
3257# 
3279 
3281# 

3279» 
663® 
3144 



3272 

2970 

2990 

3281 

3204# 

3282 



3202* 
2363 

227IS 
2330 



2244* 
3161 



3280 
2977 
29931 



289# 
2331 



726* 
1636* 
2318 
3064 
3061 
705# 
882 
1194 
1456 
1545 
1636S 
1801 
1995 
2223 



705* 
1605* 
2311* 
3047 
3045 
701 
820 
1150S 
1434 
1539 
1632 
i799# 
1993 
2221 
2995 
2995 
2995 



3282lf 3283# 3284# 3285 3286# 3287 3288# 3289# 3290S 329l« 3292# 
2300 2322* 2327 2331 2353 2382 



766* 
1704* 
2321* 
3118 
3085* 
707 
906 
U98# 
1458 
1549# 
1638 
1830 
1999» 
2227# 



818* 
1751* 
2330 
3124 
3116 
722 
9i0# 
1242 
1462S 
1551 
1694 
1834# 
2001 



1287* 
1799* 



3122 
7268 
954 
1246t 
1464 
1568 
1700 
1836 
2053 



1323* 
1834* 



728 
958# 
1283 
1484 
1570 
I704« 
1874 
2068 



1361* 

1884* 



760 
1002 
1287# 
1486 
1574# 
1706 
1880 



1432* 
1952* 



762 
i006# 
1319 
1490« 
1576 
1745 
1884# 



2072» 2074 



1462* 
1999* 



766# 
1050 
1323# 
1492 
1599 
1747 
1886 
2076 



1490* 
2072* 



768 
1054# 
1357 
1511 
1601 
1751# 
1946 
2121 



1517» 
2125* 



812 
1098 
1361# 
1513 
1605« 
1753 
1948 
2125# 



2273 
3165» 



2983 3087 



299# 
2382 



321® 
2417# 



3439 
2995 



384 
3036 



494 
3165# 



509 
3166 



510 
3172 



545# 
3309 



673«f 
3333 



2265 
3397^ 



ERRORS DETECTED? 

DEFAULT GLOBALS GENERATED; 

*TABC,TABC/S0L/CRF!SYM=DZTA8C«NEW 
RUN»TiME| 50 39 3 SECONDS 
RUN»TIME RATIO: 346/94=396 
CORE USEDs 25K (49 PAGES) 







ENGINEERING 
CflANGE ORDER 



ORIGINATOR 
TEL EXT 
LOCATION 
COST CENTER NO. 



0. Choate 



4088 PATE 17 AUG 76 



ML21-4/E10 



301 



ECO NO.MD-//-X>S:T'/?/! 



SHEE T > OF ^ 



-g-^ A 



DATE RECEIVED, 
ISSUE DATE 
FINAL RELEASE 



7J> 



:^^ 



74 



PROBLEM 

Tests # 37 and # 40 of DZTABC fail when run on 11/70 with CACHE 
Memory enabled^ 



CORRECTION /dEPO 

Install patch to diagnostic 

Cor^al+iOMAL 



UNIT TO BE CHANGED 



MD-11-DZTABC 



PRODUCT AFFECTED 



TAll 



TYPE OF ECO 
D HARDWARE 
P SOFTWARE 

D PURCHASE 
SPEC. 



BREAK-fN/EFFECTIVITY 



Immediately 



QUICK-CHECK 



TEST 



FIELD SERVICE 
AFFECTED 

YES D NO 

iFl D.P. R DISTR. 



L.O.U.CODE 



WHERE USED 



DOCUMENT/PART NO. 



OLD 

REV 



NEW 
REV 



DESCRIPTION OF CHANGE/DISPOSITION OF MATERIAL 



MD7II-DZTAB 
MD-11-DZTAB 



N/A 
N/i^ 



No document change 
CHANGE LOCATION 

11500 
11502 
11506 
11510 
11512 
11652 
11654 
1166a> 
11662 



FROM 

6301 

1001 

32714 

40 

1372 

6301 

1003 

32714 

40 



TO 

4737 

17600 

240 

240 

240 

4737 

17600 

240 

240 



APPROVAL SIGNATURE ITYPE NA 
I ROJECTENGR. . Choatc// 






ENG.MGR. 
TEL. EXT. 



M» 



Florovitz/ %^ ^&^<K 



disc.proj.no. 



4088 COST CENTER NO. 

V20-07B46 DATE . 



301 



8/18/76 



COORD. NO. 



REF.NO. 



REVIEW SIGNATURES (SEE INSTRUCTIONS FOR APPLIC.) 



FIELD SERVICE 



DIAGNOSTIC ENGR. 



IITKM 
NO. 




ENGINEERING 
CHANGE ORDER 



DOCUMENT/PART NO. 



CONTINUATION 
SHEET 



OLD 
REV 



NEW 
REV 



DISP 
COD£; 



(CONTINUED) 



MD-11-DZTAB 



C N/A - 



ECO NO. Mir'^/i^c^//^/ 



SHEET 



OF 



DESCRIPTION OF CHANGE 



CHANGE LOCATION 

11664 
17600 
17602 
17604 
17606 
17610 
17612 
17614 
17616 

NO OTHER PATCHES HEgjIRED 



PROM 
1372 



TO 

240 

6301 

1376 

32714 

40 

1002 

062716 

2 

207 



CM «»#%"*« ^ra -8/* r»<8<9»sc t ns^en'i 



=Xm™»»«JL™™J.™^^ 



